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Inhalt: 


für den privaten Haushalt: 

- Kontenverwaltung 

- Haushaltsbilanzen 

- Orakel: Hochrechnung effektiver 
Verbraucherkosten 

- Lohnsteuerberechnung 

- KFZ-Kosten 

- Belegverwaltung 

- Bankformulare 

- Wertpapierverwaltung 
-Komfortable Währungsumrechnung 

- Tilgung 

- Komplette Mini-Tabellenkalkulation 

für kleinere Business-Anwendungen: 

- Rechnungsschreibung 

- Pecunia 

- Bestellung und Bestand 

- Superplan 


Der Finanz-Fachmann 


Ein CPC-Mega-Sampler, voll mit praktischen 
Anwenderprogrammen rund ums liebe Geld 
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Lernen mit Spaß 


Sicherlich liegt es Ihnen auch am Herzen, daß die Sprößlinge eifrig und 
effektiv lernen und nicht nur stur büffeln. 

Der Pädagoge Berthold Freier hat mit den Programmdisketten 
“Lernen mit Spaß” 1 und 2 ein Lerninstrufrient geschaffen, das in dieser 
Art einmalig ist. Auf den Disketten befinden sich zahlreiche Spiel¬ 
programme, die Ihren Kindern spielerisch das Verständnis für Zahlen, 

Text und Farben vermitteln. Auch das Allgemeinwissen wird aus¬ 
reichend gefördert. 

Für Kinder von 4 bis 1 2 Jahren wird durch “Lernen mit Spaß" 1 und 2 
der CPC-C'omputer zum lehrreichen Freund. 

Machen Sie Ihren Kindern mit “Lernen mit Spaß" eine Freude. 

Lernen mit Spaß 1 DM24,95* Lernen mit Spaß 2 DM24,95 



Joyce-Highlights: 

Software-Perlen für Ihren Joyce/PCW 


JOYCE-Highlights I: “Anwender” 

Viele nützliche Arbeitserleichterungen 

Spooler: Druckerspooler (256 und 512 KByte) 

• CAT: zeigt Disketteninhalt sortiert, auch versteckte 
Dateien • Loco2Pro: Konvertierung von LocoScript 
nach Prowort File • Rescue: Retten gelöschter 
Daten • Akte: Etikettenprogramm • Kalender: 
Feiertage, persönliche Daten • Drucken List V2.1: 
Listingdrucken und Kommentare • Funktionstasten: 
zeigt die Belegung auf allen fünf Ebenen • Für 
immer und ewig: Komprimieren und Entpacken von 
Dateien • Vario: Hardcopy auf (fast) allen Druckern 

• JOYCE-Tools: Benutzeroberfläche für 
Dateibearbeitung 


nur DM 29,- 


JO YCE-Highlights II: “Spiele” 

Für jeden etwas dabei. 14 ausgesuchte Spiele 
als Programmpaket - vom Kinderspiel über 
Unterhaltung bis zum kniffligen Denkspiel 


Gobang 

Pingo 

Backgammon 

Mensch, ärgere dich nicht 

Lokomotive 

Rubik’s Clock 

Industriemanager 


- Jackpot 

- Poker 

- Fruit 

- Master Mind 

- Ölmanager 

- Verbindungen 

- Q-Bert 

nur DM 29, 


Unabhängig van der Anzahl der bestellten Programme berechnen wir für das Iniand 4.— DM bzw lürdas Ausland 6,— DM Porto und Verpackung Bitte benutzen Sie die Besldikarte. 
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Olympisches Gold 
für Abtipp-Athleten! 



Wieder einmal haben wir uns für Sie die Finger heißgetippt. Seite für Seite wuchsen die Beiträge zu ansehn¬ 
lichen Manuskriptbergen heran, und das Klappern unserer Tastaturen bildete die mitreißende Hintergrund¬ 
musik. Aber jetzt ist es soweit: Die neue Ausgabe der CPC International “ steht” - und ein gutes Dutzend her¬ 
vorragender Programmlistings wartet nun seinerseits darauf, Ihre Finger zum Glühen zu bringen und den 
Weg in Ihren Computer zu finden. 

Viele von Ihnen, liebe Leser, werden nun wieder zur Höchstform auf laufen, wenn es darum gehr, die für Sie 
attraktivsten Programme abzutippen. Da gilt es, weder Finger noch Tastatur zu schonen: 

"Soll das Programm den Tipper loben, 
will stolz auf Kilobytes er schauen, 
so heißt's: die Hand mit Fleiß erhoben 
und in die Tasten forsch gehauen!" 

Fs ist unverfälschter Sportsgeist, der den echten Abtipper auszeichnet. Zielbewußtsein, Zähigkeit und Durch¬ 
haltevermögen sind seine Tugenden. 

Die jüngst beendeten Olympischen Spiele in Barcelona haben den deutschen Athleten einen reichen 
Medaillensegen gebracht. Wieder gab es einige neue Disziplinen, die im olympischen Rahmen vorher nicht 
auf getaucht waren - wie beispielsweise Badminton. Der Trend geht zu einer noch stärkeren Öffnung für bis¬ 
lang ausgeschlossene Sportarten. 

Und wenn dann demnächst sogar Augenzwinkern und Halmaspielen zu olympischen Disziplinen geworden 
sind, wird man vielleicht auch dem Abtippsport endlich die längst fällige olympische Anerkennung zollen. Ich 
meine, es ist höchste Zeit, das Abtippen von Listings - ob als Marathon-Programmeingabe oder als 
Frickkisten-Kurzstreckensprint-als das gelten zu lassen, was es ist: eine echte sportliche Leistung. 

Wenn dann Abtippleistungen tatsächlich mit olympischem Gold belohnt werden, dürften die CPCler und 
PCWler schnell zu den Favoriten der Nation werden. Gegenüber den satten, untrainierten Benutzern anderer 
Systeme, die von Software mäßiger Fertignahrung verweichlicht sind, haben die Freunde der 8-Bit-Amstrad- 
Computer einen ganz klaren Vorteil: Sie sind fit! Ihre gute Form verdanken sie dem regelmäßigen Abtippen 
von Listings, dem selbständigen Verändern von Programmen, dem Einarbeiten eigener Lösungsansätze. Und 
damit Sie im Training bleiben, liefern wir Ihnen hiermit wieder kilobyteweise Kraftnahrung - auf daß die 
nächsten Olympischen Spiele ein Triumph der Abtipp-Athleten werden. 

Natürlich kommen auch weniger sportliche Naturen hei uns auf ihre Kosten: Immerhin kann man unsere Soft¬ 
ware ja auch auf Diskette bekommen ... 

Mit einem herzhaften "An die Tasten - fertig - los!” grüßt Sie Ihr 



Peter Schmilz, Chefredakteur 
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INHALT 




TIPS & TRICKS 


Cracker, Raubkopie¬ 
rer, Software-Piraten: 
Es gibt sie seit der er¬ 
sten Stunde der Heim¬ 
computer. Sie ver¬ 
stecken sich vorder 
Justiz, schädigen 
Händler und Herstel¬ 
ler. Sie haben ihre ei¬ 
genen Verteiler-Orga¬ 
nisationen und ihre ei¬ 
gene Moral entwickelt. 
Einer der ehemals ak¬ 
tivsten Programm¬ 
knackerderdeut¬ 
schen CPC-Szene hat 
ausgepackt - lesen 
Sie unser Interview! 

Seite 8 


BERICHT 


DerCPCals Meßlabor 

- Bauanleitung und Software für IC-Test, Frequenz- und 
Kapazitätsmessung 

Besitzerfreuden 

- Rollenspiel-Serie:Teamspiel, InventarundPersönlich¬ 
keitskonten 

Na, logisch... 

- Basic-Kurs: Logische Ausdrücke und Boolesche Algebra 

Verknotet mit der Außenwelt 

- Mailbox-Netze ermöglichen weltweite Datenübertragung 

Sanfte Schiebung 

- Assemblerecke: Phasen-Animation und wandernde Sprites 

CP/M ohne Ladezeiten 

- Bauanleitung für EPROM-Interface, Programm zum 
“Einfrieren”des Betriebssystems 
Computer auf Kontaktsuche 

- So wird’s gemacht: Modems an CPC und PCW 


Bei den Spielen geht der Trend weg von eintönigen Lauf-, Hüpf- und 
Baller-Orgien. Mehr und mehr sind Programme gefragt, die Span¬ 
nung und Kopftraining miteinander verbinden. Wenn dann auch 
noch attraktive Grafik dazukommt, stimmt die Mischung - wie bei 
■‘Think", unserem hochkarätigen Kombinationsspiel zum Abtippen. 

Seite 42 


"Keine Zukunft ohne 
Vergangenheit!", ha¬ 
ben kluge Leute ge¬ 
sagt. Auf jeden Fall 
gibt es keine Allge¬ 
meinbildung ohne ge¬ 
schichtliche Daten. 
Der Umgang damit 
braucht jedoch nicht in 
Tabellenkritzelei und 
grüblerisches Herum- 
blättern auszuarten: 
Unsere Geschichts¬ 
datenbank "History" 
macht das Lernen und 
Abrufen historischer 
Ereignisse zum Ver¬ 
gnügen. 

Seite 36 


7 Auf Schusters Rappen 

- CPC-Parties in Ulm und Reims 

8 ”Black Mission” packt aus 

- Ein CPC-Programmknacker erzählt seine 
Geschichte 


Action, Fantasy und die Hits von gestern 

- Neue Spiele und Programmsammlungen 
Preiswert geplottet 

- A4-StiftplotterfürdenCPC 
Ein Plusfür alle Fälle 

- CPC 2128: Plus-Power zum Niedrigpreis 

4 CPC 10/11 '92 


KNOW-HOW 


Gamer’s Message 

- “Erste Hilfe” für Spielefreunde 
INPUT einmal anders 

- Pfiffige Eingaberoutine als RSX 
DieTrickkiste 

- Druckerstatus 

- DergrünePunkt 

- Bildeinblendung 

- Mikro-Schrift 

- Mini-Diskettenmonitor 

- dBase II in eigenen Programmen 

- Public-Domain-Pascal und Leerstrings 

- Directory unter Turbo Pascal 3 
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CPC-Grafikfreunde haben lange auf einen Stiftplotter gewartet. Wir 
haben einen gefunden! Der unverschämt preisgünstige XY 4150 aus 
Prag bringt bereits maßgeschneiderte Treibersoftware für den CPC 
mit. Wir setzen noch eins drauf und veröffentlichen das erste Vektor - 
grafikprogramm für den neuen Plotter. 

Seite 92 







Viel Gelegenheit zum 
Basteln gibt''s auch 
diesmal wieder: Wie 
wäre es mit einem 
C P/M-Bli tz Start a u f 
Knopfdruck - ohne La - 
dezeiten? Auch das 
CPC-"Meßlabor" ist 
nicht ohne: Es erlaubt 
Ihnen das Testen von 
TTL-Chips sowie das 
Messen von Frequen¬ 
zen und Kapazitäten. 
Wir präsentieren Ihnen 
ausführliche Bauanlei¬ 
tungen und sorgfältig 
entwickelte Platinen¬ 
layouts. Ä . 

Seite 44 
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Schon lange angekündigt, fand das jüngste Kind aus der Joyce-Fa¬ 
milie jetzt endlich den Weg zu den deutschen Käufern. Der neue 
PCW 9256 ist so kompakt, daß er auch auf der kleinsten Schreib¬ 
tisch-Lichtung Platz findet. 

Seite 100 


ANGELESEN 


18 Bücher, die man noch bekommt 

- Spaß mit Basicfür Profis 

- Programmieren mitC 

- BasiCode 


PCW 


Die Schwierige 87 

- Patiencen legen mit Komfort 

Wetterstation PCW: Temperaturmessung 98 

- Ermitteln und Auswerten von Temperaturdaten 

Der neue PCW 100 

- Modell 9256: filigranes Design und 3,5-Zoll-Floppy 

CP/M 

32 Pascal-Kolleg: Funktionen aufgespürt 

- Das Utility für den “Röntgenblick” beim Unter¬ 
suchen von Turbo-Pascal-Programmen 

CPC-PROG RAMME 


Sag mir wann... 36 

- Geschichtsdaten lernen und nachschlagen mit“History” 

Think 42 

- Die spannende Bombensuche für den Feierabend 

Bonus: Adam Riese 47 

- Leistungsfähige Tabellenkalkulation löst Rechenprobleme 

Mit RSX ganzfix 58 

- Alle 4096 Farben der Plus-Serie im Griff 

DerSchlüsselzumCode 62 

- Decodier-AlgorithmusfürdenAlkatraz-Programmschutz 


SERVICE 


57 


AMS-Line 

- Tips von den Profis: Monitor-Kosmetik 


RUBRIKEN 


Editorial 

Aktuelles 

Leserbriefe 

Hotline 

Impressum 

Händlerverzeichnis 

Kleinanzeigen 

Vorschau 
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68 

69 

79 

79 

71 

102 
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Aktuell 


Neuer CPC-Händler 


Amstrad Notepad NC100 


Frisch gegründet präsentiert 
sich ein neuer Softwarever¬ 
sand, dessen Schwerpunkt 
auf CPC-Software liegt. Bro- 
stedt Computertechnik bietet 
nicht nur topaktuelle Spiele, 
sondern auch ältere CPC- 
Hits an. Wie man uns mitteil- 


te, soll es auch eine eigene 
Entwicklung für neue CPC- 
Programme geben. 

Info: Bros tedt Computer¬ 
technik 

Har kort Straße 54 
4690 Hemel 
Tel.: 02325/60865 


Hexenküche Teil 3 in Arbeit 


Wie uns aus Insiderkreisen 
berichtet wurde, plant das 
französische Softwarehaus 
Titus die Veröffentlichung 
einer neuen Episode der 
"Hexenküche“ für den CPC. 
Das Vorgängerspiel war ge¬ 
gen M i t le der ac h t/i ger J ahre 
ein absoluter Hit auf 8-Bit- 
Computersystemen. 

Die Hexe mit dem Knickhut, 
die murmelnd in ihrem 
großen Kessel rührte, wurde 


zum Markenzeichen für 
ein ganzes Genre humor¬ 
voller Geschicklichkeits¬ 
spiele mit Comic-artiger 
Grafik. 

Programmieren wird das 
neue Spiel kein anderer als 
Elmar Krieger, der sich 
schon durch das Programm 
ZAP’T’ BALLS sowie durch 
diverse Demos in Deutsch¬ 
land einen Namen machen 
konnte. 


Computerpflege statt 
Autowäschen 


Die Picco Computerdienst- 
leistungen GmbH bietet jetzt 
einen recht außergewöhnli¬ 
chen Dienst an. So wird von 
Picco jedes PC-System mit 
biologisch abbaubaren Com¬ 
puter-Reinigungsmitteln ge¬ 
säubert. Wie Joachim 
Schmidt, Geschäftsführer 
bei Picco, bemerkt, sind na¬ 
hezu 90 Prozent aller Com¬ 
puter au sfä I le a u f Ve tu n re ini- 


gungen zurückzuführen. Da¬ 
her plädiert die Picco GmbH 
an ihre Kunden, eine regel¬ 
mäßige PC-Wäsche der re¬ 
gelmäßigen Autoinspektion 
gleichzuslellen. 

Info: 

PICCO Computerdienstlei¬ 
stungen GmbH. Ridlerstraße 
I I , 8000 München 2, 

Tel.: 0 89/502009 31 



Zap’T’Balls-Verlosung 


In Verbindung mit Firma der NoName EDV-Service ver¬ 
lost die CPC Amstrad International drei Originalspiele 
"Zap'T’Balls Advanced Edition“ sowie sieben 
"Zap’T’Balls“-T-Shirts Was Sie machen müssen, um ei¬ 
nen dieser Preise zu ergattern? Ganz einfach: Schicken Sie 
einfach eine (gut lesbare ) Postkarte an: 

CPC International 
Kennwort: Zap’T’Balls 
Fuldaer Straße 6 
3440 Esc hwege 

Wie imnimer ist der Rechtsweg ausgeschlossen. Mitarbei¬ 
ter des DMV-Verlags sowie der NoName EDV-Service 
Gbr können nicht teilnehmen. 


Mit dem Prädikat “User- 
Friendly’’ hat die Firma Am¬ 
strad ihre neueste Errungen¬ 
schaft gleich schon einmal 
selbst versehen. Obwohl vie- 
lerseits befürchtet, wanderte 
Amstrad nicht aus dem Com¬ 
puterbereich ab, sondern er¬ 
gänzt seine Produklpalette 
nun noch um einen wirklich 
ansehnlichen Handheld. 
Dieser Computer für die 
Manteltasche erscheint unter 
der Bezeichnung "Notepad 
NC 100“ und ähnelt stark der 
Sinclair-Entwicklung "Cam¬ 
bridge Z88“. Basierend auf 
einem Z80-Chip, arbeitet das 
Gerät in der Grundausstat¬ 
tung mit 64 kByte batteriege¬ 
puffertem Speicher. Dieser 
kann jedoch durch eine Er¬ 


weiterungskarte auf 1 MByte 
aufgerüstet werden. Das Ge¬ 
wicht von nur einem Kilo¬ 
gramm sowie die Ausmaße 
von 297x27x210 mm prä¬ 
destinieren den NC 100 als 
Reisebegleiter. 

So kann auch unterwegs in 
Adreßbeständen gewütet, im 
Kalender nachgeschaut und 
in der Textverarbeitung ge¬ 
schrieben werden. Über je¬ 
weils ein serielles sowie ein 
paralleles Standardinterface 
kann später der Datenaus¬ 
tauschstattfinden. 

Einziges Manko, die Frage, 
ob das Gerät auch in 
Deutschland vertrieben wer¬ 
den soll, ist noch offen. 

Info: A mstrad GmbH 


LocoScript PC: Hand¬ 
bücher jetzt in Deutsch 


Ab Oktober 1992 beginnt die 
Auslieferung der deutschen 
Dokumentation zu Loco¬ 
Script PC. Jeder registrierte 
LocoScript-PC-Anwender 
kann so das LocoScript- 
N ach sch läge werk zu einem 
Preis von 119,70 DM erwer¬ 


ben. Neben dem Buch liegt 
der Sendung dann noch eine 
Diskette mit Lehrbeispielen 
bei. 

Info: Wiedmann Unterneh¬ 
mensberatung & Handel 
Korbiniansplatz2 
8045 Ismaning 


Neue PD-Serie bei DMV 


Der Daten und Medienver¬ 
lag, Eschwege wird jetzt spe¬ 
ziell für den CPC als auch für 
den PCW eine eigene PD- 
Serie aufbauen. Auf der bis¬ 
her verfügbaren Diskette 
für den CPC befinden sich 
neben den gängigsten CP/M- 
Dateipackprogrammen noch 
das Spiel Croco Magneto 
sowie das deutsche Disketten- 
und Dateikopierprogramm 
CRIME. 

Aber auch die PCW-PD- 
Disk kann jede Menge inter¬ 
essante Programme vorwei¬ 
sen. Befinden sich doch auf 
dieser Disk äußerst beein¬ 
druckende Programme aus 


vorangegangenen Ausgaben 
der CPC. Alles Public Do¬ 
main! 

Wer selbst ein Programm für 
CPC oder PCW geschrieben 
hat, kann dies selbstver¬ 
ständlich auch auf einer der 
zukünftigen PD-Disketten 
unterbringen. Hierzu sollte 
lediglich das Programm mit 
Beschreibung auf einen Da¬ 
tenträger kopiert und an fol¬ 
gende Adresse geschickt 
werden: 

DMV 

CPC/PCW Public Domain 
Service 
Fuldaer Str. 6 
3440 Eschwege 
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Bericht 


Auf Schusters 
Rappen 

CPC-Userparties in Ulm und 
Reims 


Auch dieses Jahr trafen sich CPCler aller Länder zum 
Fachsimpeln. In der Nähe von Ulm fand ein Meeting statt, 
das es in sich hatte. Aber auch ein paar Tage später in 
Reims ging die Post ab. Feten, Labern und Coden war an¬ 
gesagt. 



Das Marabu Meeting 1992: Gar nicht so leicht, alle auf einem Foto 
unterzubringen 


Ulm. eine Stadt, die nicht nur für ihre 
großen Ausbildungszentren bekannt 
ist, stand diesmal auf dem Plan der 
CPC-Szene-Freaks. Grund für diesen 
Eintrag im Terminplan? Marabu gab 
eine gewaltige Party. Sie fand zwar 
nicht im Ulmer Münster statt, Platz 
war trotzdem mehr als genug vorhan¬ 
den. Den Party gasten stand eine ganze 
Etage eines Mehrfamilienhauses zur 
Verfügung. Insgesamt trafen sich über 
20 Coder aus der internationalen Sze¬ 
ne. 

Zeitlich passend zur Party wurde die 
neue CI. ein Fanzine der deutschen 
CPC-Szene. herausgebracht. Crackers 
International gab wie immer Grund 
zum Fachsimpeln. Als dann noch die 
CPC FASTLOADER, ein deutsches 
Diskettenmagazin präsentiert wurde, 
war der Kommunikationsdrang der 
Partygäste nicht mehrzu bremsen. 
Absoluter Höhepunkt dieses Usertref¬ 
fens war jedoch die Erstpräsentation 


der Advanced Edition von 
Zap’T’Balls. Obwohl die Urversion 
dieses Games schon von der DATA- 
BOX zu der Ausgabe 4/5’92 bekannt 
war, konnte Zap’T’Balls durch neue 
Levels und noch ansprechendere Grafi¬ 
ken überzeugen. Das Ball-Fieber griff 
um sich. 

Nach Meinung aller Beteiligten war die 
Verpflegung auf dieser Party bisher am 
besten. Stand doch in der Wohnetage 
neben normalen Wohnräumen auch ein 
reichlich gefüllter Kühlschrank in der 
Küche zur Verfügung. 

Die Franzosen rufen 

Genau eine Woche nach den Gescheh¬ 
nissen in Ulm riefen die Franzosen zum 
großen CPC-Klamauk. Etwa 500 Kilo¬ 
meter von Ulm entfernt, versammelte 
man sich in der Stadt Reims. Für eine 
Gebühr von umgerechnet 30- DM 
konnte dort jeder mitmischen. Platz¬ 


mangel. darunter hatte auch hier wirk¬ 
lich keiner zu leiden. Für etwa fünfzig 
CPC-Freaks, wurde eigens eine Halle 
angemietet. Reims, Ort der Veranstal¬ 
tung, lockte nicht nurdurch Prominente 
aus der CPC-Szene. So waren auch un¬ 
sere Kollegen von der CPC Attack und 
der Amstrad Action aus England ange¬ 
reist. Die französische CPC-Presse re¬ 
präsentierte die Amstrad Cent Pour 
Cent. 

Neben dem üblichen Fachgesimpel 
wurde auch hier wieder munter geco- 
ded und in anderen Demos gehackt. Ne¬ 
ben unzähligen CPCs war auch ein 
Außenseiter, ein SEGA Mega Drive, 
vorhanden. 

Auch dieses Treffen brachte wieder 
neue Demos hervor. So wurden zum 
Beispiel von Odiesoft alle Parts der in 
Ulm angefangenen Castle-Demo ver¬ 
bunden. 

MikeBehrendt/rs 



Meeting in Frankreich: CPCs en masse. Wo sollen denn da die Besucher Die deutsche Ecke des Frankreich-Meetings. Warum können die Deut- 
noch Platz finden? sehen eigentlich keine Ordnung halten? 
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Bericht 



"Black Mission” packt aus 

Ein Personality-Bericht der etwas 
anderen Art: Wir sprachen mit einem 
CPC-Cracker 

18 Jahre, Abi im Frühjahr 1992, jetzt angehender Bankkaufmann: Unter 
dein Namen “Black Mission” kennt ihn die internationale CPC-Raubkopic- 
rerszene. Er ist Deutschlands Cracker Nummer 1, ein rotes Tuch für Soft- 
vvare-Kaufleute und EDV-Fahnder. Über 150 Programme hat “Black Missi¬ 
on” geknackt. Nach seiner “Bearbeitung” ist das Kopieren eines Spiels, das im 
Laden 50 DM oder mehr kosten würde, eine Sache von wenigen Sekunden. 


Im Herbst 1991 machte eine Nachricht 
wie ein Lauffeuer die Runde durch die 
illegale Cracker- und Kopiererszene: 
“Black Mission ist ausgestiegen.” 
Dann im Frühjahr 1992, nach dem Abi, 
ein Auftritt auf der CeBIT-und “Black 
Mission macht weiter”. Heute crackt er 
im kleinen Maßslab, wenn er mal ein 
neues Programm bekommt, das noch 
keiner vorher “geschafft” hat. 

In unserem Interview spricht er Uber 
Beweggründe, Moral und die Angst vor 
der Polizei. 

Redaktion CPC: Wann hast du das er¬ 
ste Mal ein Programm geknackt? 
”Black Mission”: Das war im Dezem¬ 
ber 1988, und zwar“Cybernoid II”. 
Red.: Wie kamst du auf die Idee, ein 
Cracker zu werden? 

BM: Ein Tauschpartner halte sich das 
Original gekauft und mir eine Kopie 
geschickt-mit der Bitte,es zu knacken. 
Ich machte mich dann zusammen mit 


einem Freund von mir, der schon öfter 
gecrackt hatte, daran, das Spiel zu ent- 
schützen. 

Red.: Das war also das erste Mal. Wie 
hat es sich dann weiterentwickelt? Man 
wird ja nicht 150mal hintereinander 
gefragt, oh man etwas knacken will, 
oder? 

BM: Mein Tauschpartner wollte das 
Spiel möglichst schnell zurückhaben, 
was dann auch so innerhalb von zwei 
Tagen geschah. Darüber war er recht er¬ 
freut und fragte, ob ich das häufiger für 
ihn machen wollte, weil ersieh recht oll 
Originale kaufen würde. Von da an hat 
er mir öfter Originale geschickt. Ich ha¬ 
be dann versucht, auch woanders noch 
welche aufzutreiben. Mit derZeit wur¬ 
den das dann immer mehr Leute und 
auch immer mehr Spiele. 

Red.: Was bringt dich dazu, deine Zeit 
in das Knacken von Spielesoftware zu 
investieren? Wie wichtig ist es dir da¬ 


bei, daß dein Name - dein Pseudonym 
bekannt wird? 

BM: Anfangs hat das eine sehr große 
Rolle gespielt. Als ich mein erstes Spiel 
gecrackt habe, beherrschte ich nur 
Grundzüge von Assembler. Das reichte 
zum Knacken aus, aber noch nicht zum 
Schreiben von Demos. Dazu muß ich 
sagen, daß das Cracken meiner Mei¬ 
nung nach ziemlich einfach ist. 

Und ich wollte, das gebe ich offen zu. be¬ 
kannt werden. Wer will das nicht? Da ha¬ 
be ich es halt mit Cracken versucht, was 
recht gute Erfolge versprach. Ich wollte 
zuerst in Deutschland bekannt werden, 
dann auch im Ausland. Mit derZeit be¬ 
kam ich dann internationale Kontakte in 
Frankreich, Spanien und sogar Grie¬ 
chenland. So wurde ich dann auch im 
Ausland bekannt. Aber so ab ‘90 oder 
'91 kam es mir darauf nicht mehr so sehr 
an. Da wurde es dann eher zur Routine. 
Red.: Wie lange brauchst du, um ein 
Spiel zu knacken? 

BM: Das kommt ganz auf das Spiel an - 
ob das jetzt mit oder ohne Nachlader 
läuft und welchen Kopierschutzes hat. 
Das dauert, grob gesagt, zwischen einer 
halben Stunde und sechs Stunden, mit 
Laderoutine und Scrolltext. 

Red.: Cracken und Raubkopieren ist il¬ 
legal. Hast du keine Angst, von der Po¬ 
lizei erwischt zu werden? 

BM: Ich bin schon einmal erwischt 
worden. Die Polizei halte meine Adres¬ 
se bei einem Tauschpartner gefunden. 
Sie kamen aber erst ein Dreivierteljahr 
später und haben dann alles durchsucht. 
Ich hatte vorgesorgt und die Disketten 
verschwinden lassen. Nicht auf Grund 
eines Tips, sondern einfach als Sicher¬ 
heitsmaßnahme. Somit haben die Cops 
außer Leerdisketten nichts gefunden. 
Sie haben dann zwar den Computer 
trotzdem mitgenommen, ihn aber nach 
sechs Wochen wieder zurück gebracht. 
Die Gefahr war und ist natürlich da. Ich 
versuche aber, ihr entgegenzuwirken, 
indem ich die Disketten nicht in mei¬ 
nem Zimmer unterbringe. In den letz¬ 
ten Jahren habe ich verstärkt versucht, 
die Tauschpartner ins Ausland zu verle¬ 
gen. Dort interessiert es nämlich last 
niemanden, wer was kopiert. Vor allem 
die Polizei nicht. Es gibt zwar auch dort 
private Anti-Raubkopier-Organisatio- 
nen, aber die haben keinen Einfluß. 
Adressen und vor allem Kopien zu be¬ 
sitzen, ist also überhaupt kein Risiko. 
Red.: Ich stelle mir vor, daß es zumin¬ 
dest beim ersten Mal eine gewisse 
Überwindung ist, etwas Illegales zu 
machen. 
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Bericht 


HM: Zuerst war da der Anreiz, bekannt 
zu werden. Daß es illegal war, war ei¬ 
gentlich zweitrangig. Ich habe mir ge¬ 
dacht: “Bekannt werden - ja! Illegal - 
nun gut. Aber mich werden sie schon 
nicht erwischen. 8-Bit-Computer inter¬ 
essieren sowieso keinen mehr, die 
packen nur Leute auf dem Amiga oder 
auf dem Atari.” Das war dann aber ein 
Trugschluß. 

Red. : Was würdest du denn sagen, wenn 
du selbst ein Programm schreiben wür¬ 
dest und dieses dann fleißig geknackt 
und weiterkopiert würde? 

HM: Da würde ich mich wahrschein¬ 
lich schon ein bißchen ärgern. Ich muß 
aber dazu sagen, gerade in letzter Zeit 
habe ich mir von guten Programmen 
meist das Original zugelegt. Und früher 
habe ich nicht groß nachgedacht. Mir 
war es ziemlich egal, was mit den Pro¬ 
grammierern passiert. Da hätte ich 
wohl gesagt: “Die Programme sind mit 
wenig Aufwand vom Spectrum rüber¬ 
gezogen worden, da hat man auch nicht 
viel investiert. Dementsprechend kön¬ 
nen die Softwarefirmen auch keinen so 
riesigen Verlust machen, wenn die 
Spiele nicht gekauft werden.” Klar, daß 
das auch nicht ganz richtig und nicht 
ganz logisch ist. Eine richtige Rechtfer¬ 
tigung für das Cracken gibt es nicht und 
wird es auch nie geben. Es wird immer 
illegal bleiben. 

Red.: Auch wenn die Konvertierungen 
vom Spectrum ziemlich leicht sind, zie¬ 
hen sich in letzter Zeit immer mehr Fir¬ 
men vom CRC zurück, weil es sich nicht 
mehr lohnt. Wenn die Raubkopiererei 
so weitergeht wie bisher, wird damit der 
CPC noch schneller zu Grabe getragen 

BM: Ich würde sagen, das ist nur teil¬ 
weise richtig. Schaut man sich den 
Markt in Frankreich an -dort boomt der 
CPC seit eh und je, und dort wird be¬ 
stimmt nicht weniger kopiert. Deshalb 
kann ich mir nicht vorstellen, daß das 
der Hauptgrund ist. Vielleicht ist die 
Motivation in Deutschland anders, daß 
hier noch weniger Programme gekauft 
werden, obwohl die Games in Frank¬ 
reich noch mehr kosten? Ich glaube, 
daß die Raubkopiererei einer von meh¬ 
reren Gründen ist, daß Softwarefirmen 
zugrundegehen, aber nicht der Haupt¬ 
grund. Ich gebe allerdings zu, daß es 
den Markt verkleinert. 

Red.: Dann sind da noch die Leute, die 
an der Raubkopiererei kräftig verdie¬ 
nen. Die kassieren, sagen wir mal, zehn 
Mark pro Diskette. Wie stehst du dazu ? 
BM: Ja, die gibt es. Vor allem auf dem 


Amiga und Atari. Auf dem Amstrad ist 
mir das nur in ganz wenigen Fällen be¬ 
kannt, vor allem auch nicht zu solchen 
Preisen. Es ist zwar keine Rechtferti¬ 
gung, aber manche mußten eben ir¬ 
gendwie ihre hohen Portokosten und 
den Zeitaufwand decken. Davon will 
ich mich nicht ausschließen, denn sonst 
hätte ich gut und gerne 100 bis 150 DM 
pro Monat für Portokosten und ähnli¬ 
ches aufbringen müssen. 

Red.: Inzwischen müßtest du doch so 
viel Ahnung von Assembler haben , daß 
du selbst eine Demo oder ein Spiel pro¬ 
grammieren könntest. Das würde allen 
viel mehr nützen, und du würdest da¬ 
durch noch weiter bekannt werden. 

BM: Ich habe im letzten Jahr weniger 
gecrackt als vorher und eher etwas in 
Richtung der Demoschreiberei getan. 
Einige Demos, darunter einige noch 
unveröffentlichte, habe ich bereits ge¬ 
schrieben. Aber ich stelle immer noch 
fest, daß ich mit guten Programmie¬ 
rern, wie etwa denen von Logon Sy¬ 


Stichwort “Cracken” 

Vom “Cracken” oder “Knacken” spricht 
man, wenn jemand den Kopierschutz einer 
Original-Software entfernt und eine lauf¬ 
fähige Kopie dieses Originals ohne Kopier- 
schutz herstcllt. Das Ziel dieser Tätigkeit be¬ 
steht darin, daß sich das “gecrackte” Pro¬ 
gramm mit beliebigen Kopierprogrammen 
vervielfältigen und so über einen Verteiler- 
Kreis verbreiten läßt. Der “Cracker” spielt 
dabei mit dem Feuer: Wenn er sich einen 
“wasserdichten” Verteiler-Ring aufgebaut 
hat, kann er durch “Abonnementsgebühren” 
seiner Abnehmer unter Umständen viel Geld 
einnehmen. Da jedoch die Veränderung wie 
auch die nichtlizenzierte Vervielfältigung 
und Weitergabe Copyright-geschützter Soft¬ 
ware nach bundesdeutschem Recht strafbar 
sind, hat ein erwischter Cracker nichts zu la¬ 
chen. Nachdem zunächst seine Cömpuleran- 
lage beschlagnahmt worden ist, winkt ihm 
abhängig von seinem Lebensalter und dem 
Umfang seiner Aktivitäten in der Regel eine 
empfindliche Geld- oder unter Umständen 
sogar eine Haftstrafe. 

“Cracker” sind selten F.in/.elgänger; sie ar¬ 
beiten meist in Teams oder Clubs. Ein 
Cracker verewigt in der Regel seinen Deck¬ 
namen in jedem Programm, das durch ihn 
seines Kopierschutz.cs beraubt wurde - 
manchmal in Form eines Lauftextes (“Scrol- 
ler”). Oft leisten die Cracker-Teams auch als 
“Coder” selbst hervorragende Programmier¬ 
arbeit, indem sie geknackte Spielprogramme 
mit “Intros” (grafisch aufwendigen Vorspän¬ 
nen) versehen oder atemberaubende Demos 
herstellen. Es gibt jedoch auch Gruppen, die 
sich nur auf die eigene kreative Program¬ 
mierarbeit beschränken so etwa “Logon 
System”, eine französische Gruppe von Co- 
dern, die durch ihre bestechenden Demos (et¬ 
wa “THE DEMO”) bekannt wurde. 


stem, nicht mithalten kann. Warum 
weiß ich nicht. Vielleicht beschäftigen 
die sich mehr mit dem CPC. Und - ein 
Spiel zu programmieren, ist noch ein 
ganz anderes Kaliber als eine Demo. 
Ich glaube, ich wäre dazu auch nicht in 
der Lage. Demos mittlerweile schon, 
auch ordentliche, aber nichts Überra¬ 
gendes. Da fehlen mir einfach noch 
Kenntnisse über “illegale” Befehle und 
ähnliches. 

Red.: Vorhin hast du gesagt, du 
brauchst zum Knacken eines Spieles ei¬ 
ne halbe Stunde bis sechs Stunden. Fine 
Zeitlang war dein wöchentlicher Spie¬ 
leausstoß ganz beachtlich. Da geht 
dann doch ziemlich viel Zeit dafür 
drauf, so daß kaum noch etwas anderes 
Platzhat... 

BM: Das ist richtig. Da gab es die Schu¬ 
le und nachmittags den Computer. 
1989, 1990 habe ich oft so zwei bis drei 
Sendungen am Tag bekommen. Die ha¬ 
be ich dann bearbeitet und eventuell ein 
Spiel gecrackt. Ich hatte wirklich nicht 
mehr viel Freizeit, da ist durchaus et¬ 
was verlorengegangen. Dazu muß ich 
aber sagen, daß das genauso für Demo- 
Coder zutrifft. Die sitzen teilweise auch 
24 Stunden nonstop am Computer, um 
eine einzige neue Routine zu ent¬ 
wickeln. Also ist der Freizeitverlust 
nicht nur beim Cracken zu verzeichnen. 
Inzwischen spielen meine Hobbies 
wieder eine stärkere Rolle: Sport, Fuß¬ 
ball, das andere Geschlecht, Musik, 
Discos und so weiter-aber der Compu¬ 
ter natürlich auch immernoch. 

Red.: Wenn es irgendwann keine neuen 
Spiele mehr für den CPC gibt und du dir 
vielleicht einen anderen Computer zu¬ 
legst, fängst du dann wieder mit 
Cracken und Demoschreiben an, oder 
ist dieses Kapitel dann abgehakt? 

BM: Mit Cracken fange ich dann ga¬ 
rantiert nicht mehr an. Mit De¬ 
moschreiben ja, wenn ich mich mit der 
Programmiersprache zurechtfinde. 
Beim Cracken ist das jetzt schon so: Ich 
cracke ein Game, wenn ich Lust dazu 
habe-und wenn nicht, dann eben nicht. 
Wenn ich Originale bekomme, verspü¬ 
re ich nicht mehr unbedingt den Zwang, 
die zu cracken. Das war noch vor zwei 
Jahren ganz anders. 

Red.: Wenn du jetzt also noch etwas 
crackst, dann einfach deshalb, weil 
man es von dir erwartet? 

BM: Ja, so kann man das sehen. Sonst 
heißt es ja wieder wie im Herbst ‘91 
“Black Mission ist ausgestiegen”. 

Red.: Ich danke dir für das Interview. 

Andreas Lober/rs 
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Der CPC als Meßlabor 

Selbstbau eines Meßwandlers 

Sind Sie Elektronikbastler? Dann haben Sie sicherlich ein Vielfachmeßgerät. 
Aber können Sie damit auch Frequenzen bis 16 Mhz messen, TTL-Schalt- 
kreise auf ihre korrekte Funktion kontrollieren oder Kondensatoren 
nachmessen? Nein. Mit unserem Hardwareselbstbau für den CPC wird das 
alles möglich. 


Wiedas Echo auf unsere letzten Ausga¬ 
ben zeigte, stehen Bauanleitungen bei 
unseren Lesern ganz hoch im Kurs. 
Deshalb ist auch in dieser Ausgabe die 
Hardwarebasleiei wieder ein Schwer¬ 
punkt. Damit Ihnen in Zukunft die In¬ 


betriebnahme Ihrer Eigenbauten besser 
gelingt, verwandelt die im folgenden 
beschriebene Hardware Ihren CPC in 
ein kleines Meßlabor. 

Beginnen wir mit der Beschreibung der 
einzelnen Baugruppen und Bauteile. 


Das wichtigste einer Computererweite- 
rung ist unbestritten die Einheit, die für 
die Kommunikation mit dem Rechner 
zuständig ist. Sie wird durch den 
Adreßdecoder gebildet, ln diesem Fall 
sorgt der Decoder dafür, daß sich die 
Schaltung nur in einem Adreßbereich 
von &F9F0 bis &F9F8 angesprochen 
fühlt. Diese Baugruppe besteht aus drei 
ICs. Der Adreßdekoder wird durch die 
ICs 1,2 und 3 gebildet. 

Der Schaltkreistester 
im Detail: 

Ein Schaltkreis, der das Tor zwischen 
Rechner und Peripherie bildet, ist die 
PIO. Die Eigenschaften dieses Schalt¬ 
kreises werden durch bestimmte Be¬ 
fehle festgelegt. So kann für jedes ein¬ 
zelne Bit der Peripherieseite bestimmt 
werden, ob es Ein- oder Ausgang ist 
oder nicht benutzt wird. Diese Eigen¬ 
schaften sind beispielsweise bei der 
Realisierung des IC-Testers besonders 
wichtig. 

Leider sind aber die Anschlüsse einer 
solchen PIO nicht besonders belastbar. 
So reicht der Ausgangsstrom eines 
Ausgangs nicht aus, um einen TTL- 
Schaltkreis mit dem nötigen Strom zu 
versorgen. Zur Verstärkung werden 
deshalb hier Optokoppler eingesetzt. 
So kann also durch die Ausgabe eines 
High-Signals auf der gewünschten Lei¬ 
tung der Schaltkreis auf dem entspre¬ 
chenden Pin mit der Betriebsspannung 
versorgt werden. 

Ebenso wird bei der Masseversorgung 
vorgegangen. Zusätzlich werden, um 
die Schaltung nicht unnötig zu kompli¬ 
zieren, einige Kombinationen durch 
Jumpereingestellt. 



Der Frequenzgeber 
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Know-how 



Der Frequenzzähler: 



Zum genauen Abgleich von Schaltun¬ 
gen mit eigenem Frequenzgenerator ist 
unbedingt ein Zähler erforderlich. Ein 
solches Gerät mit dem benötigten Fre- 
quenzumfang ist nicht gerade billig. 
Deshalb wurde es ebenfalls in unserem 
Meßlabor mit vorgesehen. Einzige Vor¬ 
aussetzung. die die zu messende Fre¬ 
quenz erfüllen muß: Sie muß TTL-Pe- 
gel haben und darf nicht größer als 16 
Megahertz sein. 

Die Eingangsfrequenz wird auf zwei 
12-ßit-Zähler geleitet. Wenn man die¬ 
se eine halbe Sekunde lang zählen läßt, 
kann man an ihren Ausgängen die hal¬ 
be Frequenz in Hertz ablesen. Dies ge¬ 
schieht ebenfalls über eine PIO. Aus 
CPC-technischen Gründen kann es bei 
Messung höherer Frequenzen bis zu ei¬ 
nem Fehler von 1000 Hertz kommen. 
Das wird durch die interruptgesteuerte 
Arbeit und durch Speicherzugriffe des 
Gate-Arrays, wobei durch eine Logik 
für diese Zeit Wait-Zyklen erzeugt 
werden, verursacht. In beiden Fällen 
kann die Meßzeit nicht eingehalten 
werden. 

Der Frequenzgeber: 

Der Frequenzgeber stellt die beiden für 
die Messung benötigten Takte (2 Hz, 
15625 Hz) bereit. Der 2-Hertz-Takt 
wird für den Frequenzzähler und der 


Die PIOs sorgen für 
die Kommunikation 
zwischen dem CPC und 
der Schaltung. Über 
die vier Ports werden 
Daten hit- oder byte- 
weise ein- und aus¬ 
gegeben 
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Know-how 



Das Kapazitätsmeßgeräl 



Der Spannungswandler 


15625-Hertz-Takt für die Kapazitäts¬ 
messung benötigt. Die beiden Takte 
werden durch zwei I2-Bit-Zähler von 
einem 4-Megahertz-Quarzgenerator 
abgeleitet. 

Das Kapazitäts- 
Meßgerät: 

Mit dem Kapazitätsmeßgerät lassen 
sich einfach größere Kapazitäten be¬ 
stimmen. Man sollte darauf achten, daß 
der Kondensator entladen und richtig 
gepolt am Meßgerät angeschlossen ist. 
Die Messung erfolgt auf der Grundlage 
der Formel: 


Das heißt, wenn man einen Kondensa¬ 
tor mit einem konstanten Strom von 1 
Ampere eine Sekunde lang lädt und an 
seinen Polklemmen dann eine Span- 
nungvon 1 Volt anliegt, so beträgt seine 
Kapazität 1 Farad, ln der Schaltung 
wird lediglich ein Strom von 1 Milliam¬ 
pere verwendet, um die Verluste durch 
eine hohe Stromstärke zu verringern. 
Außerdem wird es damit einfacher, 
Kondensatoren zu bestimmen, deren 
Werte im Mikrofarad-Bereich liegen. 


Zu Beginn der Messung wird das Bau¬ 
element für einige Millisekunden kurz¬ 
geschlossen. um eventuelle Restspan¬ 
nungen zu beseitigen. Anschließend 
wird der Stromfluß freigegeben und die 
Zeit gemessen, die bis zum Erreichen 
der 1-Volt-Grenze vergeht. Die Zeit¬ 
messung geschieht durch Zählung des 
15625-Hertz-Takts. Der gezählte Wert 
wird mit 0.065 multipliziert, und man 
erhält als Ergebnis die Kapazität des 
Kondensators in Mikrofarad. Die Mes¬ 
sung wird dreimal wiederholt, um ein 
möglichst reales Ergebnis zu erhalten. 
Die Genauigkeit der Messung hängt 
stark von der sorgfältigen Einstellung 



Der Bestückungsplan der Leiterplatte. Achten Sie auf die sorgfältige Herstellung der Durchkontaktierungen und Einlöten von Drähten in 
nicht benutzte Bohrungen 
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Know-how 




Das Leiterplanenlayout der Leiterseite (unten). Den hiervon erstellten Film legen Sie so auf die Leiterplatte, daß die Schrift richtig dar¬ 
auferscheint 



Das Layout der ßeslückungsseite. Achten Sie hier ebenfalls darauf, daß die Beschriftung auf der Leiterplatte richtigherum erscheint 
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Know-how 


des Konstantstroms von I Milliampere 
und des Wertes der Schwellspannung 
von 1 Volt ab. Zur Einstellung des 
Stroms wird ein Amperemeter verwen¬ 
det, das statt eines zu messenden Kon¬ 
densators angeschlossen wird. Mit dem 
Widerstand R6 wird nun der genaue 
Wert 1 Milliampereeingestellt. 

Die Einstellung der Schwellspannung 
ist etwas komplizierter. Hierzu benöti¬ 
gen Sie ein Voltmeter und ein Spindel¬ 
potentiometer mit dem Wert 2 Kilo¬ 
ohm. Das Spindelpotentiometer 
schließt man ebenfalls an den Meßan¬ 
schluß und parallel dazu das Voltmeter 
an. Am Spindeltrimmer stellt man nun 
genau eine Spannung von 1 Volt ein. 
Nun dreht man an R8 so lange, bis die 
gelbe Leuchtdiode flackert. Den ge¬ 
samten Justiervorgang sollte man mög¬ 
lichst schnell vornehmen, da sonst Feh¬ 
ler durch Erwärmung der Bauelemente 
auftreten können. 

Das Netzteil: 

Das Netzteil ist mit einem Spannungs¬ 
regler 7805 aufgebaut. Dieser bildet 
aus den 12 Volt vom CPC-Monitor eine 
konstante Spannung von 5 Volt. Zur 
ausreichenden Kühlung ist der 7805 
auf einem Kühlblech montiert. Beim 
Aufbau sollte man vor allem auf die 
richtige Polung (12-Volt-Stecker vom 
Monitor: außen plus, innen minus) ach¬ 
ten. 

Das ganze Gerät wird auf einer doppel¬ 
seitigen Platine im Euroformat aufge¬ 
baut. Bevor Sie mit dem Bestücken 
beginnen, untersuchen Sie die Leiter¬ 
bahnen genauestens auf Fehler wie Un¬ 
terbrechungen oder Kurzschlüsse. 
Wichtig ist das vor allem auf der 
Bestückungsseite. Befindet sich ein 
Fehler unter einem Bauelement, ist er 
im nachhinein sehr schwer zu lokalisie¬ 
ren und vor allem zu beseitigen. Achten 
Sie auch darauf, die Bauelemente auf 
der richtigen Seite zu bestücken. Vor 
dem Bestücken sollten Sie unbedingt 



Layout des Spannungswandlers 


alle Bohrungen, die nicht durch Bau¬ 
elemente benutzt werden, durch Einlö¬ 
ten von Drählchen in Durchkontaktie¬ 
rungen verwandeln. Und vergessen Sie 
auch die Brücken nicht; sie sind im Be- 
stückungsplan eingezeichnet. Haben 
Sie nun alles komplett aufgebaul und 
eingehend geprüft, geht es an den ersten 
Test. Verbinden Sie alle Leitungen ord¬ 
nungsgemäß, und schalten Sie den CPC 
ein. Erscheint nun kein Bild, oder zeigt 
der CPC irgendein seltsames Verhal¬ 
ten, schalten Sie ihn unverzüglich aus. 
Nun heißt es leider Fehlersuchen. Läuft 
der CPC, kontrollieren Sie die einzel¬ 
nen Teile. Zeigt die Schaltung keinerlei 
Reaktion, beginnen Sie zuerst im Be¬ 
reich des Adreßdecoders, nach einem 
Fehler zu suchen. Funktioniert dagegen 
nur ein Teilbereich, begibt man sich 
von den PIOs ausgehend auf die Fehler¬ 
suche. Auch eine Kontrolle der Be¬ 
triebsspannung und der Stromaufnah¬ 
me kann einen 1 linweis auf Fehler ge¬ 
ben. Die Stromaufnahme sollte bei ab¬ 
gefallenem Relais 0,35 Ampere nicht 
überschreiten. Ist der Wert zu hoch, 
weist dies auf einen Kurzschluß oder 
ein defektes Bauelement hin. 

Die Software: 

Die Software besteht aus zwei Teilen, 
dem Meßprogramm und dem Pro¬ 
gramm zum Erweitern der Bauelemen¬ 
te! isle des IC-Testers. Beide Prgramme 
sind in BASIC geschrieben, besitzen 
aber einen in Maschine geschriebenen 
Anteil. Vor dem Start des Meßpro¬ 
gramms TESTP.BAS sollte die Schal¬ 
tung angeschlossen und eingeschaltet 
sein. Es darf kein Meßobjekt ange¬ 
schlossen sein, sonst wird eine Fehler¬ 
meldung ausgegeben. Nach dem kor¬ 
rekten Anlauf des Programms sehen 
Sie ein Menü, in dem Sie unter den drei 
Meßmöglichkeiten wählen können. Da 
das Programm Ihnen die nötigen Bedie¬ 
nungshinweise gibt, ist es leicht zu be¬ 
dienen. 



Bestückungsplan des Wandlers 


Bei der Schaltkreistestung ist zu beach¬ 
ten. daß der Testschallkreis erst nach 
dem richtigen Setzen der Jumper auf¬ 
gesteckt wird. Die Position der Jumper 
teilt Ihnen das Programm mit. Zum 
Schaltkreistestprogramm gehört die 
Datei TESTICDA.LDR. In ihr sind die 
Daten der Schaltkreise abgelegt. 

Die Datendatei kann mit dem Pro¬ 
gramm TESTS.BAS vervollständigt 
werden. Es können ICs mit 14, 16 und 
20 Polen geteslei werden. Die Schalt¬ 
kreise müssen stets bündig mit der un¬ 
teren Kante auf die Fassung gesteckt 
werden. Nach dem Start zeigt Ihnen das 
Programm die Anzahl der bisher ge¬ 
speicherten Schaltkreismasken an. Ei¬ 
ne Maske ist das Modell eines Schalt- 


Bauteileliste: 


Schaltkreise: 


2 

Z80PIO 

(IC 14, IC 15) 

2 

74LS30 

(IC 1, ICS) 

1 

74LS32 

(1C2) 

1 

74LS138 

(IC3) 

3 

74LS245 

(IC9.IC10,1CI1) 

4 

4040 

(IC5, IC6, IC 12, IC 13) 

1 

74LS00 

(1C7) 

Widerstände: 


3 

3,3 kß 

(R4, R7, R32) 

1 

680 n 

(RI) 

1 

2,7kQ 

(R2) 

1 

3,9 kn 

(R5) 

1 

lOOß 

(R9) 

2 

i kn 

(RIO. RI 1) 

2 

2 kn Spindel-Poti (R6,R8) 

20 

220 n 

(RI2-R31) 

Kondensatoren: 

1 

0,47 pF 

(CI) 

6 

100 nF 

(C3-C8) 

1 

10 nF 

(C2) 

1 

220 pF 

(C9) 

1 

10 pF 

(CIO) 

Sonstiges: 


1 

7805 


2 

lLD74(CNY74-2) (IC16.IC17) 

2 

BC 546 

(VI, V2) 

1 

LM324 

(1C4) 

9 

1N4148 

(DI.D2.D4-D10) 

1 

LED gelb 

(D3) 

1 

Kleinrelais (Kl) 

1 

Quarz4Mhz (Q) 

1 

Kleinspannungsstecker 

1 

Kleinspannungsbuchse 

1 

Jumper 

(Y5-Y7) 

1 

S lecker 50pol ig (Centro¬ 
nics (6128) oder Leiterplat¬ 
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kreises, in dem die Ein- und Ausgänge 
des IC festgelegt sind. Bei einem 
Schaltkreis wie dem 74245 können die 
Anschlüsse Ein- oder Ausgang sein. In 
einem solchen Fall müssen dann zwei 
Masken oder möglicherweise mehr an¬ 
gelegt werden. 

Zur Eingabe wird auf dem Bildschirm 
ein stilisierter Schaltkreis abgebildet. 
Die Pins kennzeichnen Sie nun durch 
Angabe von E oder A, ob sie Ein- oder 
Ausgang sind. Die Pins zur Stromver¬ 
sorgung (5 Volt und Masse) werden als 


Eingänge gekennzeichnet. Rechts oben 
im Bild wird das gerade bezeichnete 
Pin angezeigt. Mit den Cursortasten 
wechseln Sie zu den anderen Anschlüs¬ 
sen. Werfen Sie nun einen Blick auf den 
Schaltplan, hier können Sie erkennen 
wie die Jumper zu stecken sind. Befin¬ 
det sich die Stromversorgung an den 
Pins 5 und 10 des Schaltkreises, so 
stecken Sie Jumper 2. Befindet sie sich 
dagegen an den Anschlüssen 10 (8 oder 
7) und 20 (16, 14), so stecken Sie Jum¬ 
per I und 2. Nun werden Sie zum Auf¬ 


slecken eines intakten Testbauelements 
und zur Angabe der Pins zur Stromver¬ 
sorgung aufgefordert. Anschließend 
geben Sie für die entsprechenden Test¬ 
durchläufe noch die Vorgabe von 0 oder 
1 an den Pins an. Das Programm stellt 
nun die Pegel an den Ausgängen fest 
und speichert diese. 

Wir hoffen, daß Sie nun Lust auf einen 
Nachbau bekommen haben, und wün¬ 
schen viel Spaß bei der Arbeit mit der 
Meßerweiterung. 

Markus Miiller/jg 


100 'TESTP.BAS 

110 'CPC 6128, 664 

120 '(c)1992 Markus Mueller 

130 ' & CPC International 

140 ' 

150 MEMORY &3FFF:LOAD"testicda.bin",&4000: 

LOAD"testb.bin",&AO00:CALL &A000 

160 MODE 1:INK 0,1:INK 1,24:INK 2,12 

170 WINDOW #1,9,31,9,21:PAPER #1,2:CLS #1 

180 WINDOW 10,30,10,20:PAPER 0:CLS 

190 WINDOW #3,10,31,24,24:PRINT#3,"CPC Zu 

satzraessgeraet" 

200 WINDOW #2,2,39,2,3:CLS #2 

210 PRINT #2,CHR$(24);" Capazitaet ";CHR$( 

24);" - ";CHR$(24);" Frequenz ";CHR$(24);" 

- ";CHR$(24);" IC-Test ";CHR${24) 

220 IF PEEK(&A069)>0 THEN LOCATE #1,9,13:P 
RINT#1,"Fehler" ELSE LOCATE #1,4,13:PRINT# 
l,"System in Ordnung" 

230 pf$=CHR$(&F4):pf=1 

240 IF INKEY(8)>-l AND pf>l THEN pf=pf-l 
250 IF INKEY(1)>-l AND pf<3 THEN pf=pf+l 
260 IF INKEY(18)>-1 THEN 310 
270 IF pf=l THEN LOCATE #2,1,2:PRINT #2,SP 
ACE$(5);pf$;SPACES(15); 

280 IF pf=2 THEN LOCATE #2,1,2:PRINT #2,SP 
ACE$(19);pf$;SPACES(15); 

290 IF pf=3 THEN LOCATE #2,1,2:PRINT #2,SP 
ACE$(32);pf$; 

300 GOTO 240 

310 CLEAR INPUT:ON pf GOTO 320,460,540 
320 CLS:LOCATE 4,1:PRINT"Messbereich von": 
LOCATE 4,2:PRINT"0.07 uF bis XX." 

330 LOCATE 8,4 : PRINT"<Taste>" ; : CALL S.BB18 
340 FOR m=6 TO 8:CALL &A06A 
350 dl=PEEK(&A10C):d2=PEEK(&A10D):d3=PEEK( 
&A10E):d4=PEEK(&A10F) 

360 d=dl+d2*&100+d3*&100*&100/2+d4*&100*Scl 
00*6100:c=d*0.065 

370 IF C<24 THEN C=ROUND(c*100)/100:GOTO 4 
10 

380 IF c<140 THEN c=ROUND(c*10)/10:GOTO 41 
0 

390 IF c<700 THEN c=ROUND(c):GOTO 410 
400 c=ROUND(c/10)*10 

410 LOCATE l,m:PRINT m-5;"Messung";c;:LOCA 
TE 18,m:PRINT "uF"; 

420 NEXT 

430 LOCATE 2,10:PRINT "Neue Messung (J/N)" 
440 a$=LOWER$ ( INKEYS ) :IF a$="" THEN 440 
450 IF a$="j" THEN 320 ELSE 240 
460 CLS:CALL &A110:PRINT" Frequenzmesse 

r": PRINT" 0-16 MHz" 

470 LOCATE 8,4:PRINT"<Taste>":CALL &BB18 
480 CALL &A126:f1=PEEK(&A16F):f2=PEEK(&Ä17 
0):f3=PEEK(&A171) 

490 frequ=(f3+f2*&100+f1*&100*&100)*2 
500 LOCATE 6,7:PRINT frequ;"Herz" 

510 LOCATE 2,10:PRINT"Neue Messung (J/N)" 
520 a$=LOWER$(INKEY$):IF a$="" THEN 520 
530 IF a$="j" THEN 460 ELSE 240 
540 CLS-.PRINT" IC - Tester" 

550 PRINT" ";PEEK(&4000);"bekannte ic's" 
560 PRINT:INPUT" Welchen Typ? 74",typ 
570 IF typ=90 OR typ=93 THEN PRINT:PRINT" 
Jumper 2 stecken":GOTO 600 
580 IF typ=245 THEN PRINT:PRINT" Jumper 1+ 

3 stecken":GOTO 600 

590 PRINT:PRINT" Jumper 1 stecken" 


[114] 

[953] 

[806] 

[2118] 

[117] 

[6378] 

[2281] 
[1390] 
[1721 ] 
[4668] 

[1251] 

[7597] 


[8311] 


[1055] 

[1259] 

[711] 

[844] 

[3019] 

[3048] 

[2937] 

[421] 

[1296] 

[5624] 

[1520] 

[1088] 

[3429] 

[3362] 

[1896] 

[3085] 

[2068] 

[1911] 

[3871] 

[350] 
[2811] 
[1494] 
[1784] 
[4305] 

[2164] 

[2411] 

[1966] 

[3642] 

[2811] 

[1526] 

[1947] 

[1951] 

[3302] 

[1629] 

[4860] 

[2710] 

[1971] 


600 LOCATE 8,7:PRINT"<Taste>" [2384] 

610 CALL &BB18:LOCATE 8,7:PRINT" " [2239] 

620 adr=&4000:st=PEEK(adr) [1126] 

630 FOR z=l TO st:adr=adr+l:al=PEEK(adr):a [30201 
l=al*&l 00 

640 adr=adr+i:a2=PEEK(adr):a=al+a2 [1726] 

650 adr=adr+l: IF aotyp THEN f=PEEK(adr) :a [5724] 
dr=adr+f:NEXT ELSE 660 

660 adr=adr+l:masken=PEEK(adr) [1211] 

670 FOR mk=l TO masken [418] 

680 adr=adr+l:OUT &F9F2,&3:OUT &F9F2,&CF:0 [41211 
UT &F9F2,PEEK(adr) 

690 adr=adr+l:OUT &F9F3,&3:OUT &F9F3,&CF:0 [37761 
UT &F9F3,PEEK(adr) 

700 adr=adr+l:OUT &F9F6,&3:OUT &F9F6,&CF:0 [3933] 
UT &F9F6,PEEK(adr) 

710 adr=adr+i:funk=PEEK(adr) [1583] 

720 FOR fk=l TO funk [580] 

730 adr=adr+l:OUT &F9F0,PEEK(adr) [1976] 

740 adr=adr+l:OUT &F9F1,PEEK(adr) [2103] 

750 adr=adr+l:OUT &F9F4,PEEK(adr) [998] 

760 adr=adr+l:IF INP(&F9F0)<>PEEK(adr) THE [2327] 
N 820 

770 adr=adr+l:IF INP(&F9F1)<>PEEK(adr) THE [2307] 
N 820 

780 adr=adr+l:IF INP(&F9F4)<>PEEK(adr) THE r30241 
N 820 

790 NEXT:NEXT [1022] 

800 IF Z=St+l THEN PRINT CHR$(24);"IC nich [4309] 

t gespeichert ";CHR$(24):GOTO 830 

810 LOCATE 5,8:PRINT "IC in Ordnug":GOTO 8 [16861 

30 

820 LOCATE 5,8:PRINT CHR$(24);" IC deffekt [2399] 
";CHR$(24) 

830 OUT &F9F2,&CF:OUT &F9F2,SFF [805] 

840 OUT &F9F3,&CF:OUT &F9F3,6FF [2055] 

850 OUT &F9F6,&CF:OUT &F9F6,&FF [1467] 

860 LOCATE 2,10:PRINT"Noch ein Test (J/N)" [2502] 
870 a$=LOWERS(INKEY$):IF a$ = "" THEN 870 [1504] 

880 IF a$="j" THEN 540 ELSE 240 [1947] 


100 'TESTICDA.LDR 

110 'erzeugt TESTICDA.BIN 

120 '(c)1992 Markus Mueller 

130 ' & CPC International 

140 DATA 14,00,00,le,01,89,92,00,04,40,00, 

40 

150 DATA c9,92,40,64,48,40,ed,da,40,52,24 
160 DATA 40,db,b6,40,76,6c,40,f6,ec,40,00 
170 DATA 00,02,le,01,24,48,00,04,40,00,40 
180 DATA 64,48,40,52,24,40,52,24,40,49,12 
190 DATA 40,49,12,40,5b,36,40,5b,36,40,00 
200 DATA 00,04,12,01,95,aa,00,02,40,00,40 
210 DATA d5,aa,40,6a,54,40,ea,d4,40,00,00 
220 DATA 07,12,01,95,aa,00,02,40,00,40,C0 
230 DATA 80,40,6a,54,40,ff,fe,40,00,00,08, 
le,01,89 

240 DATA 92,00,04,40,00,40,C0,80,40,64,48 
250 DATA 40,e4,c8,40,52,24,40,d2,a4,40,76 
260 DATA 6c,40,ff,fe,40,00,00,0a,le,01,11 
270 DATA 02,00,04,62,10,40,73,12,40,44,48 
280 DATA 40,55,4a,40,48,24,40,59,26,40,6e 
290 DATA 7c,40,6e,7c,40,00,00,14,18,01,01 
300 DATA 02,00,03,52,48,40,53,4a,40,64,24 
310 DATA 40,65,26,40,76,6c,40,76,6C,40,00 
320 DATA 00,lb,le,01,11,02,00,04,62,10,40 
330 DATA 62,10,40,44,48,40,44,48,40,48,24 


[401] 

[1750] 

[806] 

[2118] 

[1849] 

[1865] 

[1608] 

[1660] 

[1516] 

[1920] 

[1733] 

[2057] 

[2303] 

[1540] 

[1898] 

[1717] 

[1772] 

[1750] 

[1404] 

[2167] 

[1683] 

[2333] 

[1273] 

[1237] 


1 0/1 1 ’92 CPC 15 














Know-how 


340 DATA 40,48,24,40,40,00,40,51,02,40,00 [1067] 

350 DATA 00 ,le,18,01,01,00,00,03,48,54,40 [2027] 

360 DATA 49 , 54 , 40 , 50 , 2 a,40,51,2a,40,58,7e [1612] 
370 DATA 40 , 58 , 7 e,40,00,00,20,18,01,09,12 [1416] 

380 DATA 00,03,40,00,40,40,00,40,64,48,40 [1694] 

390 DATA 6d,5a,40,52,24,40,5b,36,40,00,00 [2243] 

400 DATA 2 a,42, 01 ,07,fe,00,0a,80,00,20,87 [1105] 

410 DATA 7e,20,c0,00,20,c7,be,20,a0,00,20 [1933] 

420 DATA a7,de,20,e0,00,20,e7,ee,20,90,00 [1405] 

430 DATA 20,97,f6,20,d0,00,20,d7,fa,20,b0 [2896] 

440 DATA 00,20,b7,fc,20,f0,00,20,f6,fe,20 [961] 

450 DATA 88,00,20,8d,fe,20,c8,00,20,cb,fe [1281] 

460 DATA 20,00,00,2f,48,01,7f,10,00,Ob,80 [1714] 

470 DATA 28 , 20 ,aO,38, 20 , 80 , 2 a, 20 ,f3,3a,20 [1609] 

480 DATA 80,a8,20,c4,b8,20,8Q,aa,20,cl,ba [1704] 

490 DATA 20,80,68,20,93,78,20,80,63,20,89 [1593] 

500 DATA 7a,20,80,e8,20,98,f8,20,80,ea,20 [2191] 

510 DATA e3,fa,20,80,2c,20,80,3c,20,80,2e [2165] 

520 DATA 20 ,83,3e,20,80,08,20,80,18,20,00 [1782] 

530 DATA 00,30,48,01,7f,10,00,Ob,80,28,20 [1339] 

540 DATA df,38,20,80,2a,20,8C,3a,20,80,a8 [1228] 
550 DATA 20,bb,b8, 20 , 80 ,aa,20,be,ba,20,80 [2519] 

560 DATA 68, 20 ,ec,78, 20 , 80 ,6a,20,f6,7a,20 [1080] 

570 DATA 80,e8,20,e7,f8,20,80 ,.ea, 20,9c, fa, [1614] 
20 

580 DATA 80,2c,20,ff,3c,20,86,2e,20,fc,3e [1682] 
590 DATA 20 , 80 , 08 , 20 ,ff, 18 , 20 ,00,00,4a,24 [1143] 

600 DATA 01 ,03, 06 , 00 ,05,44, 08 ,40,45,0a,40 [1580] 

610 DATA 60,40,40,62,44,40,64,48,40,66,4c [1664] 

620 DATA 40,6c,58,40,6d,5a,40,5c,38,40,5d [2284] 
630 DATA 3 a, 40 ,00,00,56,le,01,09,12,00,04 [1718] 

640 DATA 40 , 00 , 40 ,40,00,40,64,48,40,6d,5a [1208] 
650 DATA 40,52,24,40,5b,36,40,76,6C,40,76 [1085] 

660 DATA 6c, 40 , 00 ,00,5a,4d,01,1b,00,00,0c [1397] 

670 DATA 00,34,80,00,34,80,40,44,80,40,44 [1355] 

680 DATA 80,00,04,80,12,04,80,40,44,80,52, [2510] 
44,80,00,04,80,01 

690 DATA 04,80,40,44,80,41,44,80,00,04,80 [1968] 

700 DATA 13,04,80,40,44,80,53,44,80,00,04 [2173] 

710 DATA 80,08,04,80,40,44,80,48,44,80,00 [1781] 

720 DATA 04,80,10,04,80,00,07,80,18,07,80 [1939] 

730 DATA 00,5d,6b,01,1b,00,00,11,00,34,80 [1554] 

740 DATA 00,34,80,40,44,80,40,44,80,00,04 [1861] 

750 DATA 80,12,04,80,40,44,80,52,44,80,00 [1567] 

760 DATA 04,80,01,04,80,40,44,80,41,44,80 [1771] 

770 DATA 00,04,80,13,04,80,40,44,80,53,44 [1531] 

780 DATA 80,00,04,80,08,04,80,40,44,80,48 [1644] 

790 DATA 44 , 80 , 00 ,04,80,1a,04,80,40,44,80 [1529] 

800 DATA 5a,44,80,00,04,80,09,04,80,40,44 [1739] 

810 DATA 80,49,44,80,00,04,80,1b,04,80,40, [1806] 
44 

820 DATA 80,5b,44,80,00,04,80,00,04,80,00, [1763] 
8a 

830 DATA 3b,01,7f,02,00,09,80,00,20,ff,02 [1758] 

840 DATA 20,80,04,20,bf,06,20,80,84,20,df [2325] 
850 DATA 86,20,80,44,20,ef,46,20,80,C4,20 [1457] 

860 DATA f7,c6,20,80,24,20,fb,26,20,80,a4 [3283] 

870 DATA 20,fd,a6,20,80,64,20,fe,66,20,80 [1745] 

880 DATA e 4 , 20 ,ff,e4,20,00,9d,23,01,09,12 [1954] 

890 DATA 00 , 05 ,f6,6C, 20 ,f6,6c,20,92,24,20 [1022] 

900 DATA 92,24,20,a4,48,20,ad,5a,20,a4,c8 [1808] 

910 DATA 20,a4,c8,20,92,a4,20,9b,b6,20,00 [1709] 

920 DATA f5,2d,02,ff,00,00,03,00,aa,ld,ff [1446] 
930 DATA aa,ld,00,aa,15,55,aa,15,00,54,17 [1987] 

940 DATA aa, 54 , 17,00,fe,02,03,55,00,lC,55 [1691] 

950 DATA fe,le,55,00,14,55,aa,14,aa,00,14 [1648] 

960 DATA aa,54,16 

970 MEMORY &3FFF:adr=&4000:su=0 [1400] 

980 FOR ad=adr TO adr+917:READ d$:d=VAL("& [5300] 
"+d$):su=su+d:POKE ad,d:NEXT 

990 IF su<>69045 THEN PRINT "FEHLER"+CHRS( [2487] 
7)* END 

1000 SAVE"testicda.bin",b,&4000,918 [2480] 


100 

'TESTB.LDR 

[376] 

110 

'erzeugt TESTB.BIN 

[1210] 

120 

'(c) 1992 Markus Mueller 

[806] 

130 

/ 

& CPC International 

[2118] 

140 

DATA 

01,F7,F9,3E,03,ED,79,3E 

[1111] 

150 

DATA 

CF,ED,79,3E,58,ED,79,0E 

[1002] 

160 

DATA 

F5,3E,85,ED,79,0E,F2,3E 

[1476] 

170 

DATA 

4F,ED,79,OE,F3,ED,79,OE 

[1500] 

180 

DATA 

F6,ED,79,OE,F5,ED,78,CB 

[1636] 

190 

DATA 

77,C2,61,AO,3E,A5,ED,79 

[1953] 

200 

DATA 

3E,03,32,67,AO,3E,FF,32 

[1568] 

210 

DATA 

68,AO,3A,68,AO,D6,01,32 

[1402] 

220 

DATA 

68,AO,C2,3A,AO,3A,67,AO 

[1037] 

230 

DATA 

D6,01,32,67,AO,C2,35,AO 

[949] 


240 DATA ED,78,CB,77,CA,61,AO,3E 

[878] 

250 DATA 85,ED,79,3E,00,32,69,AO 

[947] 

260 DATA C9,3E,01,32,69,AO,C9,00 

[1624] 

270 DATA 00,00,3E,A5,21,00,00,22 

[992] 

280 DATA OE,Al,22,OC,Al,01,F5,F9 

[862] 

290 DATA 11,00,00,ED,79,3E,C8,CD 

[2002] 

300 DATA ED,AO,3E,85,ED,79,3E,F5 

[1185] 

310 DATA 32,67,A0,3A,67,AO,D6,01 

[1308] 

320 DATA 32,67,AO,C2,8B,AO,3E,02 

[994] 

330 DATA 32,67,AO,3A,67,AO,D6,01 

[1308] 

340 DATA 32,67,AO,C2,9B,AO,ED,78 

[1476] 

350 DATA CB,77,CA,DF,AO,CB,67,C2 

[989] 

360 DATA A6,AO,ED,78,CB,77,CA,DF 

[496] 

370 DATA AO,CB,67,CA,B2,AO,ED,5B 

[946] 

380 DATA OC,Al,21,01,00,19,22,OC 

[926] 

390 DATA Al,11,FF,FF,ED,52,C2,A6 

[925] 

400 DATA AO,ED,5B,OE,Al,21,01,00 

[441] 

410 DATA 19,22,OE,Al,C3,Ä6,AO,3E 

[359] 

420 DATA A5,ED,79,3E,C8,CD,ED,AO 

[987] 

430 DATA 3E,85,ED,79,C9,32,67,AO 

[1672] 

440 DATA 3E,FF,32,68,AO,3A,68,AO 

[1425] 

450 DATA D6,01,32,68,AO,C2,F5 , AO 

[1041] 

460 DATA 3A,67, AO ,D6,01,32,67,AO 

[677] 

470 DATA C2,FO,AO,C9,02,00,00,00 

[707] 

480 DATA 01,F2,F9,3E,4F,ED,79,OE 

[1144] 

490 DATA F3,ED,79,OE,F6,ED,79,OE 

[1243] 

500 DATA F5,3E,00,ED,79,C9,F3,01 

[1673] 

510 DATA F5,F9,ED,78,CB,5F,C2,2A 

[1390] 

520 DATA Al,ED,78,CB,5F,CA,31,Al 

[1532] 

530 DATA 3E,02,ED,79,ED,78,CB,5F 

[1881] 

540 DATA C2,3C,Al,ED,78,CB,5F,CA 

[839] 

550 DATA 43,Al,3E,00,ED,79,01,FO 

[1438] 

560 DATA F9,ED,78,32,70,Al,01,Fl 

[1082] 

570 DATA F9,ED,78,32,71,Al,01,F4 

[1345] 

580 DATA F9,ED,78,32,6F,A1,01,F5 

[1877] 

590 DATA F9,3E,85,ED,79,FB,C9,ED 

[1358] 

600 DATA 00,00,00,00,00,00,00,00 

[1005] 

610 FOR adr=&AOOO TO &A172:READ d$ 

[1226] 

620 POKE adr,VAL("&"+d$):NEXT 

[1294] 

630 SAVE"testb.bin",b,&AO00,&17 2 

[2050] 

100 'TESTS.BAS 

[98] 

110 'CPC 6128, 664 

[953] 

120 '(c)1992 Markus Mueller 

[806] 

130 ' & CPC International 

[2118] 

140 ' 

[117] 

150 MODE 2:INK 0,1:INK 1,22:PEN 1:PAPER 0: [6952] 

adr%=&2D00:an%=adr%:MEMORY adr%-l:DIM d$(1 

0,2),dm(20) 


160 FOR a=l TO 2:FOR b=l TO 10:da$(b,a)= "" [3195] 

:NEXT b,a 


170 LOCATE 29,2 :PRINT"lC-Maskenprogrammer [2964] 

unq" 


180 LOAD"testicda.bin",adr%:LOAD"tests.bin [5160] 

",&AOOO:CALL &A007 


190 st%=PEEK(adr%) 

[329] 

200 LOCATE 6,4:PRINT"Vorhandene IC- 

Masken: [3962] 

"; st% 


210 LOCATE 3,6:INPUT "Welchen IC wollen Si [5884] 

e Einprograinmieren (0-65535)";ic:IF 

ic>6553 

5 THEN 210 


220 LOCATE 36,4:PRINT"IC-TypIC:LOCATE 3 [5348] 

,6:PRINT SPACES(70) 


230 FOR ende%=l TO st%:adr%=adr%+3 

adr%=ad [3182] 

r%+PEEK(adr%):NEXT 


240 ende%=adr%:adr%=adr%+l:CALL &A002,ic:P [4652] 

OKE adr%,PEEK(&A001):POKE adr%+l,PEEK(&A00 

250 lqadr%=adr%+2:adr%=adr%+3 

[1546] 

260 LOCATE 3,6:INPUT"Wieviele Masken benoe [4855] 

tigen Sie";mk% 


270 POKE adr%,mk%:LOCATE 3,6:PRINT 

SPACES( [2507] 

70):byt=l 


280 FOR m%=l TO mk% 

[733] 

290 LOCATE 52,4:PRINT"Maske:"m% 

[2726] 

300 PRINT CHR$(23)CHR$(3);:TAG:ORIGIN 65,1 [2972] 

56,65,575,135,264 


310 MOVE 20,0:RESTORE 1250:FOR d=l 

TO 88:R [3735] 

EAD x%,y%:DRAWR x%,y%:NEXT 


320 DRÄWR 420,0:MOVER 0,88:DRAWR - 

420,0 [3082] 

330 MOVE 35,104:FOR z=20 TO 11 STEP -1 [1989] 

340 PRINT Z ;:MOVER 8,0:NEXT 

[1729] 

350 MOVE 39,-4:FOR Z=1 TO 9 

[1442] 

360 PRINT z;:MOVER 16,0:NEXT 

[2108] 

370 MOVER -4,0:PRINT 10;:TAGOFF 

[1473] 

380 LOCATE 26,24:PRINT"Deffinieren 

Sie die [7247] 

";m%;". Maske.":LOCATE 18,25:PRINT 

"(A=Ausg 

anq,E=Einqanq, + und - sind Emgaenge)" 

390 x=15:y=8:LOCATE x,y:xx=l:yy=l: 

GOSUB 12 [4255] 
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Know-how 


20:yil=8:yi2=18:yi3=10 

400 GOSUB 1150:IF e=l THEN e=0:GOTO 440 [1431] 

410 IF a$="E" THEN da$(XX,yy)=a$:GOSUB 114 [843] 

0 

420 IF a$="A" THEN da$(xx,yy)=a$:GOSUB 114 [2212] 
0 

430 GOTO 400 [452] 

440 FOR a=l TO 2:FOR b=l TO 10:IF da$(b,a) [9977] 
= "" THEN LOCATE 30,23:PRINT"Jeden Pin beze 
ichnen":GOTO 400 ELSE NEXT b,a:LOCATE 30,2 
3:PRINT SPACES(20) 

450 a=128:c=18:pla=0:FOR b=3 TO 10:IF da$( [6673] 
b,l)="A" THEN pla=pla+a:dm(c)=0 ELSE dm(c) 

=1 

460 a=a/2:c=c-l:NEXT [2075] 

470 a=128:c=3:plb=0:FOR b=3 TO 10:IF da$(b [5296] 

,2)="A" THEN plb=plb+a:dm(c)=0 ELSE dm(c)= 

1 

480 a=a/2:c=c+l:NEXT [2060] 

490 a=8:FOR b=l TO 2:FOR c=2 TO 1 STEP -1: [1694] 

IF da$(c,b)="A" THEN p2a=p2a+a 

500 a=a/2:NEXT:NEXT:adr%=adr%+l [1918] 

510 IF da$(l,l)="A" THEN dm(20)=0 ELSE dm( [1766] 

20 ) =1 

520 IF da$(2,1)="A" THEN dm(19)=0 ELSE dm( [2877] 
19 )=1 



540 IF da$(2,2)="A" THEN dm(2)=0 ELSE dm(2 [2537] 
)=1 

550 adr%=adr%+l:POKE adr%,pla:POKE adr%+l, [4372] 
plb:POKE adr%+2,p2a 

560 adr%=adr%+3:LOCATE 20,24:PRINT SPACES( [5318] 
40):byt=byt+3 

570 LOCATE 12,25:PRINT"Den Programierenden [4706] 
IC in den Testsockel stecken <Taste>" 

580 CLEAR INPUT:CALL &BB18:OUT &F9F2,&CF:0 [2638] 
UT &F9F2,pla 

590 OUT &F9F3,&CF:OUT &F9F3,plb:OUT &F9F6, [4243] 
&CF-.OUT &F9F6, p2a 

600 LOCATE 12,25:PRINT SPACES(60) [952] 

610 LOCATE 20,23:PRINT"Wo ist die Versorgu [5545] 
ngsspannung";:INPUT" +";v 

620 IF V<>20 AND V<>18 AND V<>17 AND V<>8 [9071] 

THEN LOCATE 35,22:PRINT"Fehler";CHR$(7):LO 
CATE 54,23:PRINT" ":GOTO 610 

630 LOCATE 35,22:PRINT SPACE$(7) [1593] 

640 IF v=20 THEN LOCATE 15,7:in=&l0:iml=0: [3140] 
im2=0:im3=4 

650 IF v=18 THEN LOCATE 25,7:in=&20:iml=l2 [2375] 
8:im2=0:im3=0 

660 IF V=17 THEN LOCATE 30,7:in=&40:iml=64 [1857] 
:im2=0:ira3=0 

670 IF v=8 THEN LOCATE 50,19:in=&80:iml = 0: [2074] 
im2=4:im3=0 

680 PRINT "+":dm(v)=0 [1396] 

690 LOCATE 54,23:PRINT" " [1716] 

700 LOCATE 20,23:PRINT"Wo ist die Versorgu [5496] 
ngsspannung";:INPUT" -";v 

710 IF v<>13 AND v<>10 THEN LOCATE 35,22:P [5930] 
RINT"Fehler";CHR$(7):LOCATE 54,23:PRINT" 

":GOTO 700 


720 LOCATE 35,22:PRINT SPACE$(7) [1593] 
730 IF v=l 3 THEN LOCATE 50,7 [1300] 
740 IF V=10 THEN LOCATE 60,19 [1216] 
750 PRINT :dm(v)=0 [1136] 
760 LOCATE 20,23:PRINT SPACES(60) [1578] 
770 LOCATE 25,23:INPUT "Wieviele Funktiont [3169] 
en "; f 

780 IF f<l OR f>255 THEN LOCATE 35,22:PRIN [3655] 
T"Fehler";CHRS(7):GOTO 770 

790 POKE adr%,f:byt=byt+l:adr%=adr%+l [1663] 
800 LOCATE 25,23:PRINT SPACES(25) [2030] 
810 FOR fd=l TO f:pal=0:pa2=0:pbl=0 [2261] 
820 LOCATE 20,24:PRINT"Signale eingeben de [3992] 
r";fd;". Funktion" 

830 po=l [347] 


840 IF dm(po)=0 THEN po=po+l:IF po=21 THEN [6723] 
LOCATE 23,23:PRINT"Der IC hat keine Einga 
enge":END ELSE 840 

850 IF po<11 THEN x=10+po*5:y=19 ELSE x=10 [2149] 
+(21-po)*5:y=7 

860 IF INKEY(0)>-l AND po<20 THEN po=po+l [2611] 
:m=l 

870 IF INKEY(2)>-l AND po>l THEN po=po-l: [2462] 
m=-l 

880 IF INKEY(18)>-l THEN 960 [1082] 

890 IF dm(po)=0 THEN po=po+m:IF po>20 THEN [6287] 
po=l:GOTO 890 ELSE IF po<l THEN po=20:GOT 
O 890 ELSE 890 


900 LOCATE 67,4:GOSUB 1230 [1144] 
910 FOR a = l TO 60:NEXT [1229] 
920 a$=INKEY$:CLEAR INPUT:IF a$="" THEN 85 [1735] 
0 

930 IF a$="l" THEN dm(po)= 2:GOTO 950 [2107] 
940 IF a$="0" THEN dm(po)=l ELSE GOTO 850 [2438] 
950 LOCATE X,y:PRINT a$:GOTO 850 [1448] 
960 a=128:FOR po=3 TO 10:IF dm(po)=2 THEN [3595] 
pbl=pbl+a 

970 a=a/2:NEXT [1267] 
980 a=128:FOR po=18 TO 11 STEP -1:IF dm(po [3139] 
)=2 THEN pal=pal+a 

990 a=a/2:NEXT [1267] 
1000 IF dm(19)=2 THEN pa2=8 [1409] 
1010 IF dm(20)=2 THEN pa2=pa2+4 [1567] 
1020 IF dm(2)=2 THEN pa2=pa2+2 [1465] 
1030 IF dm(1)=2 THEN pa2=pa2+l [905] 


1040 OUT SF9F0,pal+iml:OUT &F9F1,pbl+im2:O [1613] 
UT &F9F4,pa2+im3+in 

1050 POKE adr%,pal+iml:POKE adr%+l,pbl+im2 [4260] 
:POKE adr%+2,pa2+im3+in 

1060 POKE adr%+3,INP(&F9F0):POKE adr%+4,IN [6504] 
P(SF9F1):POKE adr%+5,INP(&F9F4):adr%=adr%+ 

6:byt=byt+6:NEXT 

1070 CLG:LOCATE 15,7:PRINT SPACES(50):LOCA [7842] 
TE 15,8:PRINT SPACES(50):LOCATE 15,18:PRIN 


T SPACES(50):LOCATE 15,19:PRINT SPACES(50) 

1080 LOCATE 20,24:PRINT SPACES(40):NEXT [1883] 
1090 LOCATE 20,17 : PRlNT"Einprograimnierter [4169] 
IC absichern (J/N)" 

1100 a$=INKEY$:IF a$ = "" THEN 1100 [1460] 
1110 IF a$="n" OR a$="N" THEN END [1541] 
1120 POKE lgadr%,byt:POKE an%,PEEK(an%)+l: [5267] 
SAVE"testicda.bin",b,an%,ende%+4+byt-an% 

1130 END [110] 


1140 LOCATE x,y:PRINT CHR$(32):LOCATE x,y: [2858] 
PRINT aS:RETURN 

1150 IF INKEY(1)>-l AND x<60 THEN X=X+5:XX [1947] 
=XX+1 .‘GOSUB 12 20 

1160 IF INKEY(8)>-l AND X>15 THEN X=X-5:XX [4288] 
=xx-l:GOSUB 1220 

1170 IF INKEY(2)>-l AND y=yil THEN y=y+yi3 [2505] 
:yy=yy+l:GOSUB 1220 

1180 IF INKEY(0)>-l AND y=yi2 THEN y=y-yi3 [4108] 
:yy=yy-i :gosub 1220 

1190 IF INKEY(18)>-l THEN e=l:RETURN [2275] 

1200 FOR p=l TO 60:NEXT [1776] 

1210 a$=UPPER$(INKEYS):IF a$="" THEN 1150 [2188] 

ELSE RETURN 

1220 LOCATE 67,4:IF yy=2 THEN po=xx ELSE p [2673] 
0=21-XX 

1230 PRINT"Position:";po:RETURN [1884] 

1240 'IC-Daten [491] 

1250 DATA 20,0,0,-20,20,0,0,20,20,0,0,-20, [2360] 

20 , 0 , 0 , 20 , 20 , 0,0 

1260 DATA -20,20,0,0,20,20,0,0,-20,20,0,0, [2485] 

20 , 20 , 0 , 0 ,- 20,20 

1270 DATA 0,0,20,20,0,0,-20,20,0,0,20,20,0 [2326] 

, 0 ,- 20 , 20 , 0 , 0,20 

1280 DATA 20,0,0,-20,20,0,0,20,20,0,0,-20, [2360] 

20 , 0 , 0 , 20 , 20 , 0,0 

1290 DATA -20,20,0,0,20,20,0,0,88,-20,0,0, [2462] 

20 ,- 20 , 0 , 0,-20 

1300 DATA -20,0,0,20,-20,0,0,-20,-20,0,0,2 [1911] 

0 ,- 20 , 0 , 0,-20 

1310 DATA -20,0,0,20,-20,0,0,-20,-20,0,0,2 [1911] 

0 ,- 20 , 0 , 0,-20 

1320 DATA -20,0,0,20,-20,0,0,-20,-20,0,0,2 [1911] 


0,-20,0,0, 

-20 







1330 DATA 

-20, 

■0. 

-o, 

.20,- 

-20,0,0, 

,-20,-20,0,0,2 

[1911] 

0,-20,0,0, 

-20 






1340 DATA 

-20, 

o, 

r0, 

.20,- 

-20,0,0, 

,-20 

[1033] 

1350 DATA 

-20, 

o, 

-0, 

. -32. 

,8,0,0,- 

-24,-8,0,0,-32 

[993] 


100 • TESTS.LDR 
lio 'erzeugt TESTS.BIN 
120 '(c)1992 Markus Mueller 
130 ' & CPC International 

140 ' 

150 DATA 00,00,ED,53,00,A0,C9,01 
160 DATA F2,F9,3E,03,ED,79,01,F3 
170 DATA F9,ED,79,01,F6,F9,ED,79 
180 DATA 01,F7,F9,ED,79,3E,CF,ED 
190 DATA 79,3E,58,ED,79,01,F5,F9 
200 DATA 3E,85,ED,79,C9,00,00,00 
210 FOR adr=&A000 TO &A02D:READ d$ 
220 POKE adr,VAL("&"+d$):NEXT 
230 SAVE"testS.bin",b,&A000,&2D 


[520] 

[1258] 

[806] 

[2118] 

[117] 

[612] 

[ 1112 ] 

[1696] 

[1263] 

[662] 

[1660] 

[1476] 

[1294] 

[1095] 
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Bücher 


Spaß mit BASIC für Profis 


Autor: Peter Krizian 
Verlag: 1DEA 
ISBN: 3-88793-070-3 

In Peter Krizians “Spaß mit 
BASIC für Profis” gehl es 
um die Sprache, die unser 
CPC oder PCVV von I laus aus 
spricht. BASIC, eine der am 
weitesten verbreiteten Pro¬ 
grammiersprachen, ist zwar 
auf beiden Rechnern in ver¬ 


schiedenen Dialekten umge¬ 
setzt, beherrscht jedoch alle 
Standardbefehle. So findet 
man bei genauer Betrachtung 
von Mallard- und Locomoti- 
ve-BASIC immer mehr Kon¬ 
gruenzen. 

Anhand anschaulicher Bei¬ 
spiel! istings versteht es Peter 
Krizian, den Interessierten in 
die Programmierung in Stan- 
dard-BASICcinzulTihren. 


Dies beschränkt sich jedoch 
nicht nur auf Ergebnisse, die 
auf dem Monitor erzielt wer¬ 
den, sondern macht auch vor 
der Druckersteuerung nicht 
halt. Witzige Grafiken von 
Computern lockern das Bild 
dieses Buches enorm auf und 
nehmen so die Angst vordem 
reinen Lehrbuch, als das sich 
Spaß mit BASIC versteht. 

rs 


Peter Krttan 


Spaß mit 



für Profis 


Ein Pr«XKa«»ni Polfttwr* 



Programmieren mit C 


Autor: Matthias Clauß, 
Günther Fischer 
Verlag: VEB Verlag Technik 
Berlin 

Die Zusammenführung bei¬ 
der deutscher Länder bringt 
auch dem Heimanwender so 
manchen Vorteil. Know-how 
in Sachen Programmierung 
weiß das vorliegende Buch 
aus dem Ost-VEB-Verlag 
Technik Berlin zu vermit¬ 
teln. Sauber gegliedert, ver¬ 
mag es den Leser zu fesseln 


und mit Hintergrundinfor¬ 
mationen, die gerade für Ein¬ 
steiger ungeheuer wichtig 
sind, zu versorgen. Im 
Selbststudium kann so jeder 
den Einstieg in die Sprache C 
finden. 

Obwohl eigentlich für das 
Betriebssystem UNIX und 
dessen C-Compiler entwor¬ 
fen, kann auch jeder CPC- 
und PCW-Benutzer anhand 
der abgedruckten Beispiel¬ 
dateien die Programmierung 
in C erlernen. Gibt es doch 


auch für diese Systeme sehr 
umfangreiche Implementa¬ 
tionen von C. 

Doch vor dem ersten Listing 
steht noch eine Menge Ar¬ 
beit. 

So werden zuvor noch die 
grundlegenden Sprachele- 
mente behandelt. Anhand 
anschaulicher Beispiele wird 
nun jedoch Zug um Zug die 
Verknüpfung mehrerer Be¬ 
fehle erörtert, um später 
ganze Listings anzubieten. 

rs 



Technische 

Informatik 



VEB Verlag Technik Berlin 


BasiCode 


Autor: Prof. Dr. rer. nat. 
Horst V öl z 

Verlag: Verlag Technik, Ber¬ 
lin 

ISBN: 3-341-00895-0 

Daß sich logische Zusam¬ 
menhänge wesentlich besser 
begreifen lassen, wenn man 
selber in die Arbeit einbezo¬ 
gen wird und eventuell sogar 
bestimmte Punkte auspro¬ 
bieren kann, hat sich inzwi¬ 
schen schon fast als Binsen¬ 
weisheit durchgesetzt. 

So wird zum Beispiel in der 
Schule nicht nur stur EDV- 
Stoff gepaukt, sondern es ste¬ 
hen auch Computer bereit, an 
denen man zuvor Besproche¬ 
nes ausprobieren kann. Was 
aber tun, wenn man einen 


Computer zu Hause hat und 
nicht über einen Lehrer ver¬ 
fügt? Ganz einfach, man 
kauft sich ein Buch und ver¬ 
sucht alles, was darin steht, 
auch genau auszuprobieren. 
Erste Programme werden ge¬ 
schrieben, und irgendwann 
trifft man dann doch mit an¬ 
deren Computerneulingen 
zusammen, und siehe da, sie 
haben ein anderes Computer¬ 
system, eine ganz andere 
Programmiersprache. 

Hier griff in den neuen Bun¬ 
desländern ein ganzes Kol¬ 
lektiv ein, welches von ei¬ 
nem Projekt in den Nieder¬ 
landen erfahren hatte. Dort 
wurde eine Programmier¬ 
sprache entwickelt, die auf 
unterschiedlichen Compu- 


tersy.stemen lief, jedoch auf 
jedem System gleich zu pro¬ 
grammieren war. 

BasiCode konnte sich zwar 
in den Niederlanden nie rich¬ 
tig durchsetzen, die neuen 
Bundesländer indes nahmen 
die Idee dankbar auf. 

So tat sich schon erwähntes 
Autorenkollektiv zusammen 
und sammelte sämtliche Basi¬ 
Code-Interpreter, ergänzte 
sie und konnte dann ein voll¬ 
ständiges Lehrbuch mit Da¬ 
tenplatte veröffentlichen. 
Auf der beiliegenden Schall¬ 
platte befinden sich die Basi¬ 
Code-Versionen für mehrere 
Rechnersysteme. Unter an¬ 
derem auch für die CPC- 
Computcr. Zur Programmie¬ 
rung gibt das Handbuch 


wichtige Tips, und anhand 
von kleineren und später 
auch großen Beispiellistings 
lernt sich die BasiCode- 
Sprache wie von selbst. 

rs 
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FÜR HEIMCOMPUTER 
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■Hl 


CT1 .79,- 

Multiface II.178,- 

Kass ettens oftware: 

Easl-Topcalc Kas.29,80 
Basic Lehrbuch Kass .29,80 
Mini Office II Kaa.4®,- 

Adventures CPC 

(t- Text, g- Grafik) 

Diamant von Rabenfels (g) 
Drachenland (t) 

Reise durch die Zeit (t) 
Sherlock Holmes (g. nur 3") 
Auftrag In der Bronx (g) 

Insel der Smaragde (t) 
Pharaonengrab (t) 

je 3" Diskette.38,- 

je Kassette...28,- 

DATENREM.68- 

ADRESSCOMP.58,- 

FAKTUREM .„.78,- 

FIBUPLAN.148,- 

ETATGRAF.58,- 

LAGDAT.68,- 

KALKUREM .78,- 

COMFORM .48.- 

FIBUCOMP .98,- 

PROFIREM.138,- 


Wirsind Ihr starker 

CK, Joyce & PC Partner 



CPC 6128, der 


ideale Computer für den Einsteiger: 

mit Grünmonitor GT65.798,- 

mit Farbmonitor CTM 644 .1098,- 

CPC 6128 Konsole einzeln .698,- 

Grünrromtor GT 65 198,— 

Farbmonitor C1M 644 .398,- 


Extrem preiswert: Amstrad CPC 464 aus Konkursmasse 


Orginalverpackt, mit voller Garantie ! 

CPC 464 mit Farbmonitor CTM 644 und 9 Kassetten spielen DM 478,- 
Farbmonltor CTM 644 (einzeln) DM 398,- 



Amstrad CPC 464/6128 Plus 


Idealer Einstiegscomputer I 

Z80 A Prozessor • 128 KB Rom Cartridge mit 
AMSDOS • Basic 1.1 und Action • Rennspiel 
Burmin Rubber • DMA - Soundchip • 

CPC 464 Plus mit 12" Monochrom Monitor DM 599,' 
CPC 464 Plus mit 14’ Farbmonitor DM 799,' 

CPC 6128 Plus n»t 12 ‘ Monochrom Monitor DM 799,' 
CPC 6128 Plus mMi’Fartmonncr DM 1098. 




vom Profi für den Pro 


dBasell CPC / PCW.148,- 

Wordstar 3.0 CPC / PCW.99, 

Multiplan CPC/PCW.99,-/148, 

Basic/ Asserrialer CPC / PCW .... 99 - /148, 
(•Sa Programm» Inkl. Sautscham Handbuch) 
Super II 

dBasell, Wordstar, Multiplan auch Im Paket 

erhältlich._. nur 298. 

Handbuch auch einzeln erhältlich . 49. 


EASIART + Trackerball.198,- 

Zeichnen und Konstruieren mit dem Marconi 
Trackerball und dem Grallkprogramm EASI-ART 
Unschlagbar in Kombination mit StopPress II 

EASIART* Trackerb all +StopPre8S .. 348,- 
EASIART Softw. u. Handb 78,- 


|j CPC 

1 - 

i Amor: 

\ Amor C CPC 6128 

’ Prowort. 

MAXAM II . 

225,- 
..198.- 
. 239.- 

STAR DIVISION: 

Star-Writer 1.98.- 

DateLStar.... 

Statistic-Star ... 

...98,- 

...98,- 

FlbuStar Plus CPC . 

.298,- 

CPC-Knüller: 

ROMBOX CPC. 

MICA CPC. 

.118,- 

...98,- 


Terminalstar 3'. 29.80 

Mini Office II 3‘.„..98.- 

Dart Scanner (♦) .249,- 

Vweodigillzer (+) .„„348.- 

Turbo Pascal 3 0.225,- 

(*)Adapl« für CPC 6128 39,- 
SuDercalc nur 6128. 59,80 
HiSoh Pascal 

Kas / 3* .39,80 / 59,80 

Terramaster 3"49,-/59,- 
Mastercopy. 3* CPC .65,- 

Suoeroopy... 65,- 

Neuheit: Disktool.... 79,- 

BTX Modul.188.- 

MP3.199,- 


Grafik Knüller 


AMX Maus (Joyce) 


mit Graflksotiware.. 

248.- 

StopPreea, das 


DTP Programm. 

178,- 

StopPress + 


AMX Maus (Joyce). 

298,- 

zu StopPress CPC: 


Fonts + Clipart. 

.98.- 

Vokabel/Verbentrainer 59,- 

Handbücher Deutsch 

fürCPS; 


Mini Office II. 

.29,80 

AMX-Maus CPC. 

.29,80 

StopPress CPC. 

.19,80 

dk'tronlcs Erw. 

..19,80 

MAXAM. 

.19,80 



6128 deutsch . 

„68,- 

6128 original engl. 

.10,- 



DMP 2/3/4xxx. 

-38,- 



AMX-Maus Joyce ... 

. 19,80 

Mini Oftice Prot. 

.29,80 

StopPress Joyce .... 

.19,80 

Desklop Publlsher.. 

.19,80 

LocoScrlpt2 dt. 

.59,- 

LocoFile dt. 

.59,- 

LocoSpell dt. 

.59,- 


Wir haben die Lizenz für Kotulla PD-Programme (CPC u. Joyce) 


Preiswerte Programme für CPC und Joyce - so macht Software Spaß I 

1 JRT-Pascal -vol ständiger Pascal Comafsr * 

2 Z83A»sembler. Dsassembl«, llnksr. Debugger 

3 Küns1«he r.:«ll.99rz -XUSPa E PROLOG 

4 C-Co^pler Small C • mit Fteftkcmmazarter * 

5 FORTK83 Komlortaoer Fom Interpreter 

6 Utilitst Oaieikompresson. Diskrer. Dato» eher 

7 Programme aus dem Groftsn CPCArbsItsbuch ' 

S AtfwrtueCdoaaai Cavs(Pg engl)' 

9 Oiak Utilities kcpert geschulz» Software ** 

10 Biz Basic ■ U*'!argr«che Bas; Erwenenxg ** 

• Aul CPC-464/664 nur mit Speichererweiterung (min 64 K) 

Mit deutschem Handbuch 


11 Basic-Compilet E-BASIC »r CP/M 

12 Turbo PaacsFProgrsmms -Turbo-Inlin«, Grafik 

13 Programme aus Den Joyce programmieren 

14 Programme aus CPC-Datehrerwaltung " 

15 WordStar-Tode FuBnoten. Index. Spaüendnxx * 

16 dBASE-Utotarurverwallung * 

17 C imeuxeter SO So eiere C i»'wn * 

18 MecroPaduZflO Makioassamder. Debugger. Unwer 

19 DFÜ-Programm MEX DatenObeHragwg ’ 

20 WS-Tune* 

*• Nicht geeignet tOr Joyce 


nur DM 25,-- pro 3'-Diskette DM 60,-- für drei beliebige 3" Dekatier 






Joyce Software und Hardware 


Joyce PCW 8256 .. 

....998,- 

Flbu-Star Plus. 

298,- 

Mini Otfice Proless 

..138,- 

Joyce PCW 8512 .. 

..1398.- 

Kontenblätler Flbu .... 

...35,90 

.. .Dtsch. Zeichensatz 29,80 

Joyce PCW 9512 .. 

..1688,- 

Joyce-Spiele: 


WS-Tuner. 

.49,80 

Locomotive: 


AnaJs of Rome. 

...89,- 

Tuibo Pascal 3.0 .... 

... 225,- 




...59,- 



LocoMall2 . 

....168,- 

Cyrus 3D Schach. 

...49,80 

Prompt Druck. 

....39,- 



Ski Climb. 

...79,- 

MICA CAD. 

...98,- 

Loco Spell2. 

...168,- 

Tetris... 

...79,- 

ComacLilbox 4.0 .... 

.148,- 

Loco File. 

...168,- 

Domino, Backgammon 

.69,- 

Comac Kasse Plus.. 

. 168,- 

Loco Font 


Malchday II... 

.69,- 

Comac-Banklransfer. 59,50 

Set 1 und 2 . 79,80 / 68,40 

Tomahawk.. 

...79,- 

Vereinsverwaltung... 

.198,- 

Prospell dt. 

.79,- 

Joyce-Knüller: 


Schreiblehrgang. 

...89,- 

STAR DIVISION 

Supercopy (Kcpiwprg.) 

85,- 

Lerntrainer Joyce .... 

...79,- 

Staii6tik-Star. 

.98,- 

Desktop Publlsher. 

.98,- 

Auswahltrainer. 

...49,- 

Starmall. 

.99,- 

... * AMX-Maus (+).... 

298,- 


.225,- 


.99,- 


298,- 




.... 189,- 

VIDI PCW (+). 

348,- 



Star-Base. 

...198,- 

Echtzeltuhr (+).. 

129,- 

ProScan (Handscann«)798,- 

Busine6s-Star . 

...298,- 

(+) PCW-Adapter.... 

39,- 





AMSTRAD 3 "-Laufwerke: 


DD1 (inkl. Contr.). 


.398,- 


Ein Muß für feden CPC 464 -Besitzer 
Controller (auch einzeln erhältlich) 198,- 
FD1 (2 Lautwerk CPC) 3' 198,~ 

Achtungl LAuft am CPC 464 nur mit Contr. 
Kabel fOr FDl nötig lür 6128 / 664 48,- 

F04 (2 -EmbauLautw Joyoe) T 398,— 




Zweit-Laufwerke / Festplatten 


3,5" LW (CPC/Joyce)- Je 240,- 

Achlungl tauft am CPC 464 nur mit Contr, 

5,25” LW (CPC/Joyce).„. je 320,- 

Ach’.ungl Lauft am CPC 464 nur mit Contr. 
Dtskpere 3,5" / 5,25 " Formeteoltwere 78,- 

HD 20 (CPC 464/664/6128) .. 1.100,- 

Joyce Festplatte 30 MB.798,- 


Neuheiten CPC - Joyce 


Joystick Controller Joyce 


69,- 


- Spielen Sie Ihre Joyoe Spiele jetzt 
auch mit dem Joystick. 

- Joyce Adapter erforderlich 39,- 

CPC Schnittstelle 199,50 

Unbedingt erforderlich zur DFÜ 

Musizier mit mir 99,80 

Neues Mueikprogramm für den CPC II 


Joyce + CPC Zubehör 


Abdeckhauben: 

CPC Monitors.je 39,80 

DMP-Drucker.je 29,80 

DDVFDI/Vorlex.... je 19,80 

CPC Konsolen. je 24,80 

Joyce Monitor.44,80 

Joyce Tastatur.24,80 

Joyce Drucker.24,80 

3"-Dlsketten (lost.) 
Maxell / AmsoftCF2 ....59,- 

CF2 DD.98,- 

Noneme..................... 49,- 

Dlskettenboxen: 

3"-3,5" 150 .19,80 

3--3.57100 ...29,80 

5.257100.. 29,80 

POSSOBOX 150 3-... 59- 


Di verses: 

Daten rekorder + Kab. 98,- 
Monitorverlängerung: 

464 / 6128 . 24,50 / 29,80 

Druckerkabel CPC .„.38.- 

Traktor NLQ 401 .58,- 

BUdschlrmlllter.39,- 

Druckerveriangerung: 
für Joyce (2 Kabel) ....58,- 
PaplerfOhrung.19,80 

Joysticks 

Competition pro.39,80 

Quickshol II.19,80 

Joystickadapter ..39,80 

Schnittstellen: 

CPC Schnittstelle.199,50 

RS 232 Joyce.198,- 


Etiketten 200 Stk 

70 x 70 r und 3,5- 

.16,- 

Farbbänder 

Joyce . 

.24,80 

DMP 2xxx. 

.19,80 

NLQ 401 . 

.19,80 

Schaltpläne 

CPC Konsole. 

je 29,80 

CTM 644/640. 

. 19,80 

GT 64/65. 

.19,80 

DD! 1/FDl. 

.19,80 

DMP xxxx. 

.29,80 

Joyce 8256/8512 .. 

.29,80 

Spei chorerweitsmng 

S4KB. 

.... 149,- 


Kart~Heinx W<M&ke 
Potsdamer Ring *) #' 
D-7T50 Backnang 

:#öi3ö(p-kaäseBK *BLZ(M25QÖ2Ö): 
74387* Pcf!3.'oStgt,83aa8‘707 "j 


256KB.269,- 

256KB Joyce. 128 ,- 


IfmOW WO0& C , , ! 
M: 07191-1528(29)* 60076 
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ck an Absender 10/11 92 

Interessiert an weiterem Info¬ 
material ? Kostenlose Gesamt¬ 
angebotslisten anfordern I 

o lür CPC 6128, 664, 464 
O lür PC O *ür Joyce 

O Spiele CPC O Spiele Joyce 
O Lernprogramm-Liste 
Vorname, Name: 

Straße, Hausnummer: 

PLZ, Ort: 

Telelon-Nr, Datum: 


Mein Computersyslem: 


J 






















































































































































































Know-how 


Besitzerfreuden 

Sehe: Der Weg zum eigenen Rollenspiel 

Ein Abenteuerspiel, das w irklich Stimmung bringen soll, muß auch Gelegen¬ 
heit bieten, die niederen Triebe zu befriedigen-zum Beispiel die Habgier. Das 

neueste Programmodul unserer Rollenspielserie erlaubt daher das Sammeln 

und Weitergeben von Objekten. Und da Gemeinheiten nur in Gesellschaft 
wirklich Spaß machen, sind jetzt auch erstmals mehrere Spieler mit dabei. 



Willkommen zur vorletzten Folge un¬ 
serer Serie! Mit dem “Creator 4” be¬ 
kommen Sie diesmal ein erweitertes 
Rollenspiel-Rahmenprogramm an die 
Hand, das eine Besitztümer-Verwal¬ 
tung und Eigenschaftskonten mit¬ 
bringt. Außerdem können nun vier 
Spieler im Team agieren; erst dadurch 
kommt das klassische Rollenspiel-Fee¬ 
lingzustande. 

Das neue Programm enthält bereits alle 
Funktionen der “Creator”-Module 2 
und 3 und macht diese Programme so¬ 
mit überflüssig. Den Ur-"Creator” aus 
Heft 6/7’92 brauchen Sie allerdings 
wieder, um die Grafikpuzzle-Dateien 
für Sprites. Landkarte, Stadt- und Häu¬ 
serpläne zu erzeugen. 

Nach dem Start des Programms sieht 
man unterhalb des Schauplatzfensters 
vier Spielerfiguren. Der grün darge¬ 
stellte Kopf steht für den gerade aktiven 
Spieler. Im Schauplatzfenster erkennt 


man die aktive Spielerfigur daran, daß 
sie transparent dargestellt ist. Durch 
Druck auf die Leertaste wechselt die 
aktive Spielerfigur. Die Taste <S> er¬ 
möglicht eine Identifikation von Ge¬ 
genständen. auf denen die aktive Spie¬ 
le rfigur gerade steht. Das ist nötig, denn 
immerhin kommen jetzt ja Objekte al¬ 
ler Art ins Spiel. 

Heldenquartett 

Mit <Return> gelangt man in das per¬ 
sönliche Statusmenü der aktiven Figur. 
Hier werden die aktuellen Werte der 
Persönlichkeitskonten angezeigt. Au¬ 
ßerdem findet hier das Aufnehmen. Ab¬ 
legen und Weitergeben von Objekten 
statt. 

Der Menüpunkt “Benutzen” ist bereits 
vorgesehen, ohne daß hierfür bislang 
irgendwelche Reaktionen program¬ 
miert wären. Es hängt von der konkre¬ 
ten Spielstory ab. welche Gegenstände 
bei welchen Figurenpositionen “be¬ 
nutzt” werden müssen, um den Wert ei¬ 


nes bestimmten Kontos zu verändern 
oder andere Reaktionen auszulösen. 
Eine entsprechende Abfrage muß in der 
Routine ab Zeile 2030 verankert wer¬ 
den (IFA$=”B”THEN...). 

Das Umschalten zwischen den Spielerfi¬ 
guren wird von Zeile 280 bis 480 be¬ 
werkstelligt. Dabei wird jedesmal kon¬ 
trolliert, ob die nächste Figur nicht be¬ 
reits tot ist. Die Zei len 390 bis440dienen 
dazu, den neuen Schauplatzausschnitt so 
zu wählen, daß sich die aktive Spielerli- 
gur immer in der Mitte befindet. 

In den Zeilen 1860 bis 1890 wird die 
Anzeige der Spielerfigur aufgebaut. 
Das Ende des Spiels ist erreicht, wenn 
alle vier Spielerfiguren tot sind. Die 
einzige Todesgefahr, die das Rahmen¬ 
programm bisher bietet, stellt eine Kol¬ 
losion mit dem sich ausbreitenden Feu¬ 
er im linken oberen Bereich der Land¬ 
karte dar. 

Durch die Kollisionsabfrage und die 
Lebenskraft-Konten ist das Programm 
jedoch auch für alle anderen denkbaren 
“Todesarten” offen. Die Liste der Ge- 


Maschinenprogrammaufrufc 

Das Maschinenprogramm zur neuen "Creator"-Version wurde gegenüber der 
Version aus dem letzten Heft nur geringfügig verändert. Assemblerfreunde fin¬ 
den den kompletten Quelllext auf der DA I ABOX-Diskeite zu diesem Heft. 

Das Maschinenprogramm wird von Basic aus mit folgenden CALLS angespro¬ 
chen: 

AOOO.adr: initialisiert die Anfangsadresse, an welche die Daten der 

Grafikpuzzles geladen worden sind. 

Alfe.adr: invertiert die Spielerfiguranzcigean Bildschirmadresse 

"adr" 

A17c.feld.aus Darstellung des Landschaftsausschnitts mit der Anfangs¬ 

adresse “leid" und der Ausdehnung“aus" 

Alef.adr.adr2 transparente Darstellung deraktivcnSpiclerfigurmit der 

Grafikadresse "adr2" an die Bildschirmadresse “adr“ 

A1 56.adr.adr2 Überschreiben durch Puzzle mit der Grafikadresse “adr2“ 

an die Bildschirmadresse “adr” 

AOOa.gra.h scrolltden Landschaftsausschnitt nach rechts,dabei sind: 

.fcld.aus.cur gra=Adresse des Grafikpuzzlcs der Spielerfigur 

h = Nummerdes Hintergrundpuzzles deraltcn Position 
leid = Adresse der Figur in der Ebene 
aus = Ausdehnung der aktuellen Ebene 
cur = Bildschirmadresse derakluellen Figur 
A048.gra,h, scrollt den Landschaftsausschnitt entsprechend nach links 

l'cld.aus.cur 

A086.era.il. scrolltden Landschaflsausschnittnach unten. Parameter 

feld.O.cur wie beim Scrollen nach rechts, jedoch ohne Angabe der 

Ausdehnung (dafür 0) 

A0c4,gra.h. scrollt den Landschaftsausschnitt entsprechend nach oben 

feld.O.cur 


Neue Variablen 
figadr(l) 

bis fig<ulr(4): Biidschirmndresscnder vier Köpfe(SpiclcrfigUieiumzeige) 

aktfig Nummer der aktiven.Spieler ligur 

piratin,6): Zur Kontrolle jedei Sptejcrfigursindb Parnmelcrnolig.die zu Anfang aus den DA 

TA-Zeilcnab 1060 gelesen werden. Sieslehen dort in der Reiben folge "DATA 
s.e.g.x.y.h" und haben im einzelnen folgende Bedeutung: 
s = Status! I: lebend. 0: toi) 

e = Ebene, in dcrsiclulic Figur momentan befindet 

g = NumniCrrtesGrafikpuzzles. dasdic F igtit darstellen soll 

x =X Koordinate auf der Landkarte," I, l"=linke obere Ecke) 

y - Y-Kourdinnic 

i, =. Nummerdes Hinturgrundgrafikpuzirles 

name2$(n,2): In dieser Variablen stehen Name und Geschlecht der jeweiligen .Spielcrfigur, 
die dazugehörigen DATAs sind in Zeile 1930, 

W ertc(n, 1 2): Die 12 Eigcnscliaftswertccincr jeden Spiclcrfigurwerdenausden DATA-Zellcn ab 

1940 indicsc Variable gelesen, 

gegenst$(l4). In den Zeilen 1100 und 1 I IO stehen die Namen der Gegenstände, die indicsc Variable 
cingelcsen werden. 

bcsilzfn.6): beschreibt den Inhalt voneiiierderöTaschenemer Figur in Form einer Nummer, die 

sich aufden Index im Feld“gegcnst$" bezieht. 
spicler: Anzahl der noch lebenden Spieler!iguren 

tabeile: Beginn der ‘l abeile, in der die Parametcrdcr abgelegten Gegenstände sichen. Es 

werden fofgendcParametergcsichcrt: 

1. die jeweilige Ebene 

2. X Koordinate 

3. Y-Koordinaic 

•I. Nummer des Gegenstands (wie Index" gegen siS") 

5. Nummer des Hintergruiidgrafikpuzzles 

last(l)bis 

last(4 i: Tabelle der Bbenen-Rückspningdaten der jeweiligen Spielcrfigur 

invert: Adresse der Invcrtferuitgsroutinc 

Temporäre Variablen 

mr: Tasche, ausdermanctwasnblegenwil! 

adr: Speichcradressedei'aklucllciiSpiclerfiguraufdcrl amtkarte 

Inr2: Tasche, in der man etwas hincinlcgen w ill 

spnr: Nummer der Figur, der mail etwas übergeben will 

stauist I) 

bis status(4): zur Ermüdung, oh und welche Spielcrfiguren die aktive berühren 
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genstände kann ebenso wie das vorhan¬ 
dene Sortiment an Feind-Charakteren 
nur ein Anfang sein. Wenn Sie eine der 
Listen erweitern, achten Sie bitte auf 
die richtige Anfangszeile nach dem je¬ 
weiligen RFSTORE-Befehl. Werden 


Ebenen beim Betreten nachgeladen, 
sind sie auch beim Verlassen wiederab¬ 
zuspeichern - damit die jeweils erfolg¬ 
ten Änderungen während des Spielens 
in der betreffenden Ebene auch erhalten 
bleiben. Im abgedruckten Beispiel ha¬ 


ben wir das Abspeichern noch nicht 
realisiert. 1 lier werden die Beispielebe¬ 
nen gleich zu Beginn des Spiels gela¬ 
den und bleiben fortan resident im 
Speicher. 

Matthias Fink/Ulrich Schmitz/sz 


10 'CREATOR4.BAS (c) 1992 M. Fink & CPC In [2181] 

20 DATA 18,2,0,7,23,12,18,9,24,15,6,3,8,13 [1201] 
,10,26 

30 FOR a=0 TO 15:READ n:INK a,n:NEXT:BORDE [2496] 
R 0:MODE 0:PAPER 2:CLS 

40 RESTORE 950:pmax=5:ind=6:DIM m(pmax),xa [9357] 
lt(pmax),yalt(pmax),name$(pmax),xaus(pmax) 
,yaus(pmax),spec(pmax):DIM s(ind),e(ind),x 
k(ind) ,yk(ind) ,t(md) ,a(ind) ,h(ind) ,z(ind) 

50 FOR n=l TO pmax:READ m(n),xalt(n),yalt( [7564] 

n),name$(n),xaus(n),yaus(n),spec(n):NEXT 

60 RESTORE 1000:FOR n=l TO ind:READ s(n),e [4506] 

(n),xk(n),yk(n),t(n),a(n),h(n),z(n):NEXT 

70 ebene=l:aktfig=l:figadr(1)=&C69B:figadr [6054] 

(2)=&C6AB:figadr(3)=&C6BB:figadr(4)=&C6CB 

80 DIM pirat(4,6):RESTORE 1060:FOR m=l TO [3106] 

4:FOR n=l TO 6:READ pirat(m,n):NEXT:NEXT 

90 DIM werte(4,12),name2$(4,2),gegenst$(14 [3913] 

),besitz(4,6):RESTORE 1930 

100 FOR n=l TO 4:READ name2$(n,1):READ nam [2647] 
e2$(n,2):NEXT 

110 FOR n=l TO 4:FOR m=l TO 12:READ werte( [4083] 
n,m):NEXT:NEXT 

120 RESTORE 1100:FOR n=0 TO 14:READ gegens [2895] 
t$(n):NEXT 

130 FOR n=l TO 4:FOR m=l TO 6:READ besitz( [3633] 
n, m):NEXT:NEXT 

140 MEMORY 21999:LOAD"creator4.bin",&A0O0: [3115] 
CALL &A000,23470 

150 LOAD"demo4.spr",23469:LOAD"demo4.fld", [4493] 
29300 

160 LOAD"stadtl.fld",31800:LOAD"stadtl.fld [7940] 
",32425:LOAD"stadtl.fld",33050:LOAD"hausl. 
fld",33675 

170 spieler=4:feld=29300:tabelle=22000:las [8410] 
t(l)=23000:last(2)=23100:last(3)=23200:las 
t (4)=23300:fritel=&A156:frite=&AlEF:indnr= 

1:invert=&AlFE 

180 GOSUB 390:GOSUB 1860:GOSUB 1830 [2611] 

190 a$=INKEY$:IF a$="" THEN a$="@" [1910] 

200 b=ASC(a$):IF b=ll THEN GOSUB 610 [1405] 

210 IF b=10 THEN GOSUB 670 [1743] 

220 IF b=8 THEN GOSUB 490 [579] 

230 IF b=9 THEN GOSUB 550 [1317] 

240 IF b=32 THEN GOSUB 280 [979] 

250 IF b=13 THEN GOSUB 1980 [2083] 

260 IF b=115 THEN GOSUB 2640 [1497] 

270 GOSUB 1160:GOTO 190 [1211] 

280 CALL invert,figadr(aktfig) [2621] 

290 pirat(aktfig,2)=ebene:pirat{aktfig,4) = [4181] 
x+xscr:pirat(aktfig,5)=y+yscr 

300 pirat(aktfig,6)=PEEK(feld+xscr+x+(yscr [3650] 
+y)*xaus(ebene)) 

310 POKE (feld+xscr+x+(yscr+y)*xaus(ebene) [2469] 
),pirat(aktfig,3) 

320 'hintergrund [339] 

330 aktfig=aktfig+1:IF aktfig=5 THEN aktfi [2762] 
g=l 

340 IF pirat(aktfig,l)=0 THEN 330 [1920] 

350 IF pirat(aktfig,2)=ebene THEN 390 [3243] 

360 ebene=pirat(aktfig,2):n=VAL(name$(eben [2358] 
e)) 

370 IF noo THEN feld=n:GOTO 390 [1321] 

380 LOAD name$(ebene)+".fld",29300:feld=29 [2641] 
300 

390 xscr=pirat(aktfig,4)-4:yscr=pirat(aktf [3997] 
ig,5)-4:x=4:y=4 

400 IF xscr<0 THEN x=x+xscr:xscr=0 [2927] 

410 IF yscr<0 THEN y=y+yscr:yscr=0 [1971] 

420 IF xscr>xaus{ebene)-10 THEN x=x+xscr-( [5163] 

xaus(ebene)-10):xscr=xaus(ebene)—1o 

430 IF yscr>yaus(ebene)-10 THEN y=y+yscr-( [5347] 

yaus(ebene)-10):yscr=yaus(ebene)-10 

440 POKE (feld+x+xscr+(y+yscr)*xaus(ebene) [4951] 

),pirat(aktfig,6) 

450 CALL invert,figadr(aktfig) [2621] 


460 curgra=23470+pirat(aktfig,3)*80:cur=49 [2686] 
l67+x*5+y*l60 

470 CALL &A17C,feld+xscr+yscr*xaus(ebene), [6407] 
xaus(ebene):CALL frite,cur,curgra 
480 LOCATE 5,21:PRINT SPACES(13):LOCATE 5, [4474] 
21:PRINT name2$(aktfig,1):RETURN 

490 IF X=1 AND xscr=0 THEN RETURN:'links [1836] 
500 a=PEEK(feld+xscr+yscr*xaus(ebene)+x+y* [4294] 
xaus(ebene)-l):GOSUB 730 

510 IF a=256 THEN RETURN [1275] 

520 h=PEEK(feld+xscr+yscr*xaus(ebene)+x+y* [3634] 
xaus(ebene)) 

530 IF x=l THEN xscr=xscr-l:CALL &A0OA,pir [6537] 
at(aktfig,3)*80+23470,h,feld+xscr+yscr*xau 
s(ebene),xaus(ebene),cur:RETURN 

540 x=x-l:CALL fritel,cur,h*80+23470:cur=c [6882] 
ur-5:CALL frite,cur,curgra:RETURN 
550 IF x=8 AND xscr=xaus(ebene)-10 THEN RE [1391] 
TURN:'rechts 

560 a=PEEK(feld+xscr+yscr*xaus(ebene)+x+y* [4172] 
xaus(ebene)+1):GOSUB 730 

570 IF a=256 THEN RETURN [1275] 

580 h=PEEK(feld+xscr+yscr*xaus(ebene)+x+y* [3634] 
xaus(ebene)) 

590 IF x=8 THEN xscr=xscr+1:CALL &A048,pir [9364] 

at(aktfig,3)*80+23470,h,feld+xscr+yscr*xau 

s(ebene) + 9,xaus(ebene),cur:RETURN 

600 x=x+l:CALL fritel,cur,h*80+23470:cur=c [5936] 

ur+5:CALL frite,cur,curgra:RETURN 

610 IF y=l AND yscr=0 THEN RETURN:'oben [850] 

620 a=PEEK(feld+xscr+yscr*xaus(ebene)+x+(y [5386] 

-1)*xaus(ebene)):GOSUB 730 

630 IF a=256 THEN RETURN [1275] 

640 h=PEEK{feld+xscr+yscr*xaus(ebene)+x+y* [3634] 
xaus(ebene)) 

650 IF y=l THEN yscr=yscr-l:CALL &A086,pir [8938] 
at(aktfig,3)*80+23470,h,feld+xscr+yscr*xau 
s(ebene),0,cur:RETURN 

660 y=y-l:CALL fritel,cur,h*80+23470:cur=c [6662] 
ur-l60:CALL frite,cur,curgra:RETURN 
670 IF y=8 AND yscr=yaus(ebene)-10 THEN RE [3905] 
TURN:'unten 

680 a=PEEK(feld+xscr+yscr*xaus(ebene)+x+(y [4461] 

+1)*xaus(ebene)):GOSUB 730 

690 IF a=256 THEN RETURN [1275] 

700 h=PEEK(feld+xscr+yscr*xaus(ebene)+x+y* [3634] 
xaus(ebene)) 

710 IF y=8 THEN yscr=yscr+l:CALL &A0C4,pir [6799] 
at(aktfig,3)*80+23470,h,feld+xscr+yscr*xau 
s(ebene)+9*xaus(ebene),0,cur:RETURN 
720 y=y+l:CALL fritel,cur,h*80+23470:cur=c [4852] 
ur+160:CALL frite,cur,curgra:RETURN 
730 'ereignisabfrage [562] 

740 IF a=42 THEN RETURN [692] 

750 IF a=4 OR a=5 OR a>37 THEN a=256:RETUR [1838] 
N 

760 IF a>30 THEN lx=x+xscr:ly=y+yscr:GOTO [2263] 
1690:'Kollision 

770 IF a<>25 THEN 840 [1296] 

780 last(aktfig)=last(aktfig)-5 [1880] 

790 n=PEEK(last(aktfig)):x=PEEK(last(aktfi [5889] 
g)+l):y=PEEK(last(aktfig)+2):xscr=PEEK(las 
t(aktfig)+3):yscr=PEEK(last(aktfig)+4) 

800 name=VAL(name$(n)):IF nameoO THEN fei [4115] 
d=name:GOTO 820 

810 LOAD nameS(n)+".fld",29300:feld=29300 [24991 

820 CUr=49167+5*X+160*y [1604] 

830 ebene=n:CALL &A17C,feld+xscr+yscr*xaus [5611] 
(ebene),xaus(ebene):CALL frite,cur,curgra: 
a=256:RETURN 

840 FOR n=l TO prnax [1092] 

850 IF aom(n) THEN 940 [562] 

860 IF ABS(xalt(n)-(x+XSCr))>1 THEN 940 [1325] 

870 IF ABS(yalt(n)-(y+yscr))>1 THEN 940 [1931] 

880 POKE last(aktfig),ebene:POKE last(aktf [7058] 
ig)+l,x:POKE last(aktfig)+2,y:POKE last(ak 
tfig)+3,xscr:POKE last(aktfig)+4,yscr 
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890 ebene=n:last(aktfig)-last(aktfig) + 5 
900 name=VAL(name$(n)): IF nameoO THEN fei 

91 O^LOAD name$(n)+".fld",29300:feld=29300 
920 x=4:y=4:xscr=0:yscr=0:cur=49167+5*x+lb 

0 *v 

930 n=pmax:a=256:CALL &A 17 C,feld+xscr+yscr 
*xaus(ebene),xaus(ebene):CALL frite,cur,cu 
rgra:GOSUB 1830 
940 NEXT:RETURN 

950 DATA 255,0,0,29300,50,50,0 
960 DATA 20,33,21,31800,25,25,0 
970 DATA 20,21,28,32425,25,25,0 
980 DATA 20,44,27,33050,25,25,0 
990 DATA 22,2,1,33675,15,15,0 
1000 DATA 1,1,27,24,1,31,0,0 
1010 DATA 1,1,49,49,2,32,0,0 
1020 DATA 1,1,38,4,3,32,1,0 
1030 DATA 1,2,9,9,3,31,28,0 
1040 DATA 1,3,22,22,2,32,28,0 
1050 DATA 1,1,9,4,4,33,33,5 
1060 DATA 1,1,38,4,4,1 
1070 DATA 1,1,39,21,30,1 
1080 DATA 1,1,40,44,25,1 
1090 DATA 1,1,41,31,22,0 

1100 DATA ,Lampe,Messer,Kerze,Oel,Dolch,Sd 

ebel,Seil,Hammer,Meissei,Naegel 
1110 DATA Zunder,Dietrich,Schluessel,Rucks 
clCiC 

1120 DATA 1,2,0,0,0,0 
1130 DATA 0,0,3,6,9,0 
1140 DATA 10,11,0,0,0,0 
1150 DATA 0,4,0,13,2,0 
1160 n=indnr 

1170 IF s(n)=0 THEN 1500 

1180 IF ebeneoe(n) THEN 1500:'Wegfall, we 
nn "Hintergrundbewegung 1 ’ erwuenscht 
1190 lx=xk(n):ly=yk(n) 

1200 ON t(n) GOTO 1210,1280,1350,1400 

1210 IF z(n)>39 THEN z(n)=0:'Taktikl, Rech 

teckabschritt 

1220 lnr=INT(z(n)/10)+l 

1230 ON lnr GOTO 1240,1250,1260,12/0 

1240 lx=lx-l:GOTO 1490 

1250 ly=ly+l:G0T0 1490 

1260 lx=lx+l:GOTO 1490 

1270 ly=ly-l:G0T0 1490 

1280 ll=x+xscr-xk(n):l 2 =y+yscr-yk(n) :'Takt 
ik2, Spielerverfolgung 
1290 IF 11=0 THEN 1310 
1300 ll=ll/ABS( 11 ) 

1310 IF 12=0 THEN 1330 
1320 12=12/ABS(12) 

1330 lx=lx+ll:ly=ly+12 
1340 GOTO 1490 

1350 ON INT(RND*4+1) GOTO 1360,1370,1380,1 
390:'Taktik3, Zufallsbewegung 
1360 lx=lx-l:IF lx<0 THEN 1500:ELSE GOTO 1 
490 

1370 lx=lx+l:IF lx=xaus(ebene) THEN 1500:E 
LSE GOTO 1490 

1380 ly=ly-l:IF ly<0 THEN 1500:ELSE GOTO 1 
490 

1390 ly=ly+l:IF ly=yaus(ebene) THEN 1500:E 
LSE GOTO 1490 

1400 z(n)=z(n)-l:IF z(n)>0 GOTO 1500:'Takt 
ik4, Ausbreitung 

1410 lnr=INT(RND*4+l) „ , 

1420 ON lnr GOTO 1430,1440,1450,1460 
1430 lx=lx-l:IF lx<0 THEN 1500*.ELSE GOTO 1 

1440 lx=lx+l:IF lx=xaus(ebene) THEN 1500:E 

1450 G ly2ly-l:IF ly<0 THEN 1500:ELSE GOTO 
470 

1460 ly=ly+l:IF ly=yaus(ebene) THEN 1500 
1470 lnr=PEEK(feld+lx+ly*xaus(ebene) ):IF 1 
nr=a(n) THEN 1500 
1480 h(n)=a(n):z(n)=5:GOTO 1490 

1500 indnr=indnr+l:IF indnr>ind THEN indnr 
=1 

1510 RETURN , . ,, 

1520 ll=PEEK(feld+lx+ly*xaus(ebene) ) 

1530 IF ll>37 THEN 1730:'Kollision mit ein 

1540^IF lx=x+xscr AND ly=y+yscr THEN ll=ak 
tfig+37:GOTO 1730:'Kollision mit akt. Spie 
lerfigur 


[1772] 

[4127] 

[2499] 

[1127] 

[6145] 


[940] 

[572] 

[1466] 

[876] 

[1324] 

[1015] 

[1169] 

[ 868 ] 

[1095] 

[630] 

[862] 

[1379] 

[917] 

[975] 

[926] 

[890] 

[5449] 

[2899] 

[564] 

[896] 

[578] 

[846] 

[509] 

[1462] 

[4605] 


[545] 

[ 2120 ] 

[2463] 

[1441] 

[1884] 

[1598] 

[1619] 

[1158] 

[1571] 

[5030] 

[613] 
[594] 
[364] 
[573] 
[1771] 
[313] 
[3059] 

[1837] 

[2061] 

[2259] 

[2330] 

[2705] 

[960] 

[2462] 

[1809] 

[1969] 

1 [2279] 

[2291] 
1 [3718] 

[1770] 
[907] 
[2116] 

[555] 
[2511] 
[3968] 

[5333] 


1550 IF ll>29 THEN RETURN [1256] 

1560 IF 11<28 AND 11>21 THEN RETURN [1241 

1570 IF 11=20 OR 11=17 OR 11=16 THEN RETU [2854] 
RN 

1580 IF 11<7 AND ll>3 THEN RETURN 
1590 ll=xk(n)-xscr:12=yk(n)-yscr 
1600 IF ll>9 OR 12>9 OR 11<0 OR 12<0 THEN 

1610 CALL fritel,49167+11*5+12*160,23470+h 
(n )*80 

1620 ll=lx-xscr:I2=ly-yscr 
1630 IF 11>9 OR 12>9 OR ll<0 OR 12<0 THEN 

1640 CALL frite,49167+11*5+12*160,23470+a( 
n)*80 

1650 z(n)=z(n)+l:POKE feld+xk(n)+yk(n)*xau 
s(ebene),h(n) 

1660 h(n)=PEEK(feld+lx+ly*xaus(ebene)) 

1670 POKE feld+lx+ly*xaus(ebene),a(n) 

1680 xk(n)=lx:yk(n)=ly:RETURN 
1690 IF a=33 THEN ll=aktfig+37:GOTO 1770 
1700 FOR n=l TO ind , , 

1710 IF ABS(lx-xk(n))<2 AND ABS(ly-yk(n))< 

2 AND e(n)=ebene THEN 1730 
1720 NEXT n 

1730 IF a(n)=33 THEN 1770 
1740 ll=xk(n)-xscr:12=yk(n)-yscr:s(n)=0:a= 

256 

1750 CALL fritel,49167+11*5+12*160,23470+h 

1760 8 POKE feld+xk(n)+yk(n)*xaus(ebene),h(n 
):PRINT CHR$(7):BORDER 0:RETURN 
1770 CLS:pirat(11-37,1)=0:POKE feld+pirat 
11-37,4)+pirat(11-37,5)*xaus(ebene),pirat( 

1780 ? LOCATE 1,10:PRINT"Die Spielerfigur":P 
RINT:PRINT"mit der Nummer 11-37:PRINT:PR 
INT"ist tot. (Taste)":CALL &BB18 
1790 spieler=spieler-l:IF spieler>0 THEN 1 
810 

1800 CLS:LOCATE 1,10:PRINT"Die ganze Grupp 
e":PRINT:PRINT"ist tot. Spielende!":PRINT: 

1810 CLS:IF (11-37)=aktfig THEN GOSUB 330: 

ELSE GOSUB 450 

1820 GOSUB 1860 :a=256:RETURN 
1830 FOR n=l TO ind:IF e(n)<>ebene OR s(n) 

1840 H lx=xk(n):ly=yk(n):z(n)=z(n)-l:GOSUB 1 
620 

1850 NEXT:RETURN 

1860 a=&C69B+2 A 16:FOR n=a TO a+48 STEP 16 
1870 IF pirat(((n-50843)/16)+i/ 1 )~° THEN 1 
89 0 

1880 CALL fritel,n,23470+37*80:CALL fritel 
,n+5,23470+36*80:CALL fritel,n+l60,23470+3 
4*80: CALL fritel ,n+165,23470+35*8(3 
1890 NEXT:CALL invert,figadr(aktfig):RETUR 

1900 DATA Grad,Alter,Groesse (cm),Gewicht 

1910 DATA Staerke,Geschicklichkeit,Konstit 
ution,Intelligenz 

1920 DATA Auftreten,Reaktionswert,Bewegung 
, Lebenspunkte , ...... 

1930 DATA Klaus,m,Sabine,w,Peter,m,Sybille 

1940 DATA 1,19,176,78,90,92,98,80,80,89,29 
40 

1950 DATA 1,23,165,62,80,99,75,90,88,84,32 

1960 DATA 1,22,192,99,100,85,99,69,77,88,3 
5 42 

1970 DATA 1,28,171,66,84,86,90,94,90,89,30 
,38 

1980 RESTORE 1900 
1990 INK 0,0:INK l,15:MODE 2 
2000 nr=aktfig:GOSUB 2330 

2010 LOCATE 6,23:PRINT"Ggst ”CHRS(24) h CH 
RS(24)"inlegen":LOCATE 24,23:PRINT"Ggst "C 
HRS(24)"a"CHR$( 24 )"ufnehmen":LOCATE 43,23: 
PRINT"Ggst "CHR$(24)"u"CHR$(24)"ebergeben" 

:LOCATE 63,23:PRINT"Ggst "CHRS(24)"b"CHR$( 

24) 11 ©nutzGn* 1 

2020 LOCATE 29,25:PRINT"Mit 'R' wieder zur 

•ipck ^ ^ 

2030 ’a$=UPPERS(INKEYS):IF a$="R" THEN 2080 
2040 IF a$="U" THEN 2090 
2050 IF a$="H" THEN 2400 


[968[ 
[1818] 
[2365] 

[2420] 

[1428] 

[2383] 

[1287] 

[3242] 

[1300] 

[2669] 

[3162] 

[1801] 

[797] 

[3080] 

[366] 

[806] 

[2218] 

[2420] 

[4056] 

[4038] 

[7787] 

[2524] 

[5857] 

[3324] 

[1927] 

[2242] 

[2388] 

[940] 

[1660] 

[1691] 

[6738] 


[1930] 

[2792] 

[4023] 

[3551] 

[1738] 

[2176] 

[2183] 

[1456] 

[2293] 

[922] 
[1269] 
[1285] 
[16262] 


[3396] 

[1582] 

[1279] 

[1488] 
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2060 IF a$="A" THEN 2490 [1176] 

2070 GOTO 2030 [365] 

2080 MODE OrPAPER 2:CLS:INK 0,18:INK 1,2:G [3983] 
OSUB 470:GOTO 1860 

2090 LOCATE 10,25:PRINT"Mit der Nummer ein [7648] 
er Tasche ohne Inhalt kommen Sie zurueck!" 

2100 LOCATE 1,23:PRINT"Geben Sie die Numme [7271] 
r der Tasche ein, aus der Sie den Ggst ueb 
ergeben wollen LOCATE 76,23 

2110 INPUT tnr:IF tnr<l OR tnr>6 THEN 2100 [2289] 
2120 IF besitz(aktfig,tnr)=0 THEN PRINT CH [2071] 
R$(7);:GOTO 1980 

2130 adr=feld+xscr+x+(yscr+y)*xaus(ebene) [2639] 
2140 status(1)=PEEK(adr-l)-37:Status(2)=PE [4491] 
EK(adr+l)-37 


2150 status(3)=PEEK(adr-xaus(ebene))-37 [2589] 

2160 status(4)=PEEK(adr+xaus(ebene))-37 [3649] 

2170 anz=4:MODE 2 [1493] 

2180 FOR 1=1 TO 4 [468] 

2190 IF status(l)<1 OR status(l)>4 THEN an [4729] 
z=anz-l:status(l)=255:GOTO 2210 

2200 LOCATE 25,8+1*2:PRINT"Nr. ";status( [4386] 
1);" mit dem Namen ";name2$(status(1),1) 

2210 NEXT [350] 


2220 IF anz=0 THEN 1980:'Keine Figur in de [2333] 
r Naehe 

2230 LOCATE 25,6:PRINT "In Ihrer Reichweit [8050] 
e stehen nachfolgend":LOCATE 25,8:PRINT"au 
fgefuehrte Personen:" 

2240 LOCATE 8,25:PRINT"Mit der Eingabe ein [18370] 
er nicht aufgefuehrten Zahl kommen Sie zur 
ueck!":LOCATE 25,18:PRINT"Welcher Figur mo 
echten Sie den":LOCATE 25,20:PRINT"Gegenst 
and uebergeben (Nr.1-4) ";:LOCATE 5 

8,20 

2250 INPUT spnr:IF spnrcl OR spnr>4 THEN 2 [2384] 
240 

2260 IF spnr<>status(1) AND spnr<>status(2 [8098] 

) AND spnr<>status(3) AND spnr<>status(4) 

THEN PRINT CHR$(7):GOTO 1980:'rueckkehr 
2270 MODE 2:INK 1,15,16:nr=spnr:GOSUB 2330 [3372] 
2280 LOCATE 11,25:PRINT"Mit der Eingabe ei [10178] 
ner Tasche mit Inhalt kommen sie zurueck!" 

:LOCATE 6,23:PRINT" In welche Tasche s 

oll der Gegenstand gesteckt werden (Nr) 

";:LOCATE 70,23 

2290 INPUT tnr2:IF tnr2<l OR tnr2>6 THEN 2 [2304] 
280 

2300 IF besitz(spnr,tnr2)<>0 THEN PRINT CH [784] 

R$(7):GOTO 1980 

2310 besitz(spnr,tnr2)=besitz(aktfig,tnr): [3342] 
besitz(aktfig,tnr)=0 

2320 GOTO 1980 [367] 

2330 LOCATE 1,1:PRINT "Name":LOCATE 21,1:P [9010] 
RINT name2$(nr,1):LOCATE 40,1:PRINT"Geschl 
echt":LOCATE 61,1:PRINT name2$(nr,2) 

2340 FOR n=0 TO l:FOR m=l TO 6:READ a$:LOC [6080] 
ATE n*39+l,1+2*m:PRINT a$:LOCATE n*39+2l,l 
+ 2*m:PRINT werte(nr,n*6+in): PRINT:NEXT:NEXT 
2350 LOCATE 1,15:PRINT"Inhalt von Tasche:" [2726] 
2360 LOCATE 1,17:PRINT"1)";gegenstS(besitz [4877] 
(nr,1)):LOCATE 41,17:PRINT"2)";gegenst$(be 
sitz(nr,2)) 

2370 LOCATE 1,19:PRINT"3)";gegenst$(besitz [4402] 
(nr,3)):LOCATE 41,19:PRINT"4)";gegenst$(be 
sitz(nr,4)) 

2380 LOCATE 1,21:PRINT"5)";gegenst$(besitz [7092] 
(nr,5)):LOCATE 41,21:PRINT"6)";gegenst$(be 
sitz(nr,6)) 

2390 RETURN [555] 

2400 LOCATE 10,25:PRINT"Mit der Nummer ein [7648] 
er Tasche ohne Inhalt kommen Sie zurueck!" 

2410 LOCATE 1,23:PRINT"Geben Sie die Numme [8870] 
r der Tasche ein, aus der Sie den Ggst hin 
legen wollen ";:LOCATE 75,23 

2420 INPUT tnr:IF tnr<l OR tnr>6 THEN 2410 [2450] 
2430 IF besitz(aktfig,tnr)=0 THEN PRINT CH [2071] 
R$(7);:GOTO 1980 

2440 adr=feld+xscr+x+(yscr+y)*xaus(ebene) [2639] 
2450 IF PEEK(adr)=42 THEN PRINT CHR$(7):GO [2078] 
TO 1980 

2460 POKE tabeile,ebene:POKE tabelle+1,x+x [8615] 
scr:POKE tabelle+2,y+yscr:POKE tabelle+3,b 
esitz(aktfig,tnr):POKE tabelle+4,PEEK(adr) 

2470 tabelle=tabelle+5:besitz(aktfig,tnr)= [4482] 
0:POKE adr,42 

2480 GOTO 1980 [367] 

2490 LOCATE 11,25:PRINT"Mit der Eingabe ei [11697] 
ner Tasche mit Inhalt kommen Sie zurueck!" 


:LOCATE 6,23:PRINT" In welche Tasche s 

oll der Gegenstand gesteckt werden (Nr) 

.-LOCATE 7 0,23 


2500 INPUT tnr2:IF tnr2<l OR tnr2>6 THEN 2 [2270] 

490 


2510 IF besitz(aktfig,tnr2)<>0 THEN PRINT [2966] 

CHRS(7):GOTO 1980 


2520 adr=feld+xscr+x+(yscr+y)*xaus(ebene) [2639] 

2530 IF PEEK(adr)<>42 THEN PRINT CHR$(7):G [3008] 

OTO 1980 


2540 FOR 1=22000 TO tabeile STEP 5 

[1064] 

2550 IF PEEK( 1)oebene THEN 2610 

[1064] 

2560 IF PEEK (1 + 1) ox+xscr THEN 2610 

[1065] 

2570 IF PEEK(l + 2)oy+yscr THEN 2610 

[1455] 

2580 besitz(aktfig,tnr2)=PEEK(1+3) 

[1342] 

2590 POKE adr,PEEK(1+4) 

[325] 

2600 adr=l:l=tabelle 

[1198] 

2610 NEXT:IF adr>feld THEN STOP 

[23581 

2620 FOR l=adr TO tabeile:POKE l,PEEK(l + 5) r 2663 

: NEXT 


2630 tabelle=tabelle-5:GOTO 1980 

[3151] 

2640 CLS:LOCATE 1,10:PRINT name2$(aktfig,1 [2852] 

sieht" 


2650 IF PEEK(feld+x+xscr+(y+yscr)*xaus(ebe [3274] 

ne))=42 THEN 2680 


2660 PRINT:PRINT"nichts Besonderes." 

[1630] 

2670 GOTO 2760 

[387] 

2680 FOR 1=22000 TO tabelle STEP 5 

[1064] 

2690 IF PEEK(l)oebene THEN 2750 

[1012] 

2700 IF PEEK(l + l)ox+XSCr THEN 2750 

[1013] 

2710 IF PEEK (1 + 2 ) oy+yscr THEN 2750 

[1546] 

2720 PRINT:PRINT"folgenden":PRINT:PRINT"Ge [3598] 

genstand:" 


2730 PRINT:PRINT gegenst$(PEEK(1+3)) 

[1730] 

2740 l=tabelle 

[615] 

2750 NEXT 

[350] 

2760 LOCATE 1,25:PRINT"Bitte Taste druecke [30211 

n";:CALL &BB18 


2770 CLS:GOSUB 470:GOTO 1860 

[1207] 


10 MEMORY &9FFF 

11 FOR X=0 TO 544 
"+LEFTS(b$,2)):b2= 

12 POKE &A0O0+x,bl 

13 SAVE "creator4. 

14 DATA DD6E,00DD, 

15 DATA 0BA1,2150, 

16 DATA 21ED,B822, 

17 DATA C00E,14CD, 

18 DATA 0222,4EA1, 

19 DATA 29A1,21D3, 

20 DATA 2120,0022, 

21 DATA Al11,0FC0, 

22 DATA 0022,48A1, 

23 DATA 5605,213C, 

24 DATA 21B0,3F22, 

25 DATA B022,08A1, 

26 DATA 12CD,02A1, 

27 DATA 4EA1/DD5E, 

28 DATA 2ICE,0722, 

29 DATA 0022,06A1, 

30 DATA 0FC0,21AF, 

31 DATA 48A1,2101, 

32 DATA 21AF,C5C3, 

33 DATA 01CE,07EB, 

34 DATA EB09,EB09, 

35 DATA C3A4,Al06, 

36 DATA 2929,1929, 

37 DATA E5CD,62A1, 

38 DATA 09EB,CI 10, 

39 DATA 02DD,6603, 

40 DATA D511,FB07, 

41 DATA E9C9,060A, 

42 DATA 4EA1,DD5E, 

43 DATA CD29,A1C1, 

44 DATA DD5E,08DD, 

45 DATA 2003,7EE6, 

46 DATA Bl77,1323, 

47 DATA 6730,087D, 

48 DATA A1C9,0601, 

49 DATA 06E5,C32F, 

50 DATA DD66,03C3, 

51 DATA 060A,7EEE, 

52 DATA 1AA2, 1150, 


[134] 

STEP 2:READ b$:bl=VAL("& [5320] 
VAL("&"+RIGHT$(b$,2)) 

:POKE &A000+X+1,b2:NEXT [1838] 
bin",b,&A000,544 [1252] 

6601,2271,A2C9,212D,0822 [2534] 
C022,16A1,212D,0022,06Al [1969] 
08Al,CDDE,Al11,40C0,213B [2180] 
02Al,21AO,0022,4BAI,DD6E [1356] 
DD5E,04DD,5605,210F,C0C3 [2142] 
0722,0BA1,2150,C022,16A1 [2515] 
06Al,21ED,B022,08Al,CDDE [2570] 
2114,C00E,14CD,02A1,21A0 [1543] 
DD6E,0222,4EA1,DD5E,04DD [2095] 
C0C3,29Al,2ICE,F722,0BA1 [2181] 
16A1,2132,0022,06A1,21ED [1432] 
CDDE,Al11,FFFD,215F,FD0E [2118] 
2105,0022,48A1,2101,0022 [1598] 
04DD,5605,210F,C0C3,29Al [1844] 
0BA1,2150,C022,16A1,2132 [1223] 
21ED,B022,08A1,CDDE,A111 [2049] 
C00E,12CD,02A1,2105,0022 [1615] 
0022,4EA1,DD5E,04DD,5605 [1709] 
29A1,0608,C501,3200,EDB0 [2011] 
09EB,09C1,10FO,C501,50C0 [2334] 
C10D,20E2,DD6E,00DD,6601 [1675] 
0AC5,D5E5,1A6F,2600,5F54 [2537] 
2929,29ED,5B71,A219,EBE1 [2693] 
Elll,A0O0,19Dl,EB01,8900 [1352] 
D6C9,DD5E,00DD,5601,DD6E [1744] 
0E10,0605,1A77,1323,10FA [1220] 
1930,0411,50C0,19D1,0D20 [1674] 
21A0,0022,48A1,DD6E,0022 [1590] 
02DD,5603,210F,C0D5,E5C5 [2052] 
Elll,0500,19D1,1310,F0C9 [1947] 
5609,0E10,0605,C51A,E6AA [1917] 
AA4F,1AE6,5520,037E,E655 [1951] 
C110,E77D,C6FB,6F3E,078C [2288] 
C650,6F3E,C08C,670D,C2AC [1912] 
C5C5,DD6E,00DD,6601,DD7E [2242] 
A1DD,5E00,DD56,01DD,6E02 [1327] 
AAA1,DD6E,00DD,6601,0E20 [1708] 
FF77,2310,F911,F607,19D2 [2217] 
C019,0DC2,06A2,C900,0000 [1454] 


10/11‘92 CPC 23 




















Know-how 



Na, logisch... 


Ausdruck “1 = 1” ist wahr, wird also 
durch -I gekennzeichnet. Probieren Sie 
es aus: 

PRINT (1 = 1) 

Eine merkwürdige Art von Mathema¬ 
tik, nicht wahr? Aber immerhin: So las¬ 
sen sich die Ergebnisse logischer Aus¬ 
drücke in “gewöhnliche” Formeln ein¬ 
bauen. 

Was bedeutet nun das “AND" in der lo¬ 
gischen Gleichung? Es besagt, daß der 
Ausdruck “A AND B” nur dann wahr 
ist, wenn A und ß gleichzeitig wahr 
sind. 

ln diesem Zusammenhang ist es bei 
komplizierteren Gleichungen oft nütz¬ 
lich, eine sogenannte Wahrheitstabelle 
zu Rate zu ziehen. Diese stellt die 
einzelnen Bedingungen einer logi¬ 
schen Verknüpfung (“wenn...") als 
“Eingänge” und das Ergebnis 
(“dann...”) als “Ausgang" dar. Für die 
AND-Funktion aus unserem Beispiel 
sieht die Wahrheitstabelle folgender¬ 
maßen aus: 


Basic-Kurs: Logische Ausdrücke und 
Boolesche Algebra 

Ohne Logik wäre das gesamte Gebiet der Datenverarbeitung kaum vorstell¬ 
bar Einer der fundamentalen Ausdrücke eines logischen Zusammenhangs ist 
die einfache Bedingung. Auch das BASIC des CPC erlaubt es, die Ausführung 
einzelner Programmteilevon bestimmten Bedingungen abhängig zu machen. 

Knüpfen Sie mit uns ein Netz aus logischen Verbindungen. Aber verstricken 

Siesich nicht! 


Wenn es regnet, wird die Straße naß. 
Andrea oder Hans kommen heute zum 
Essen - vorausgesetzt, Horst kommt 
nicht. 

Was das in einem BASIC-Kurs zu su¬ 
chen hat? - Ganz, einfach: Bei diesen 
scheinbar sinnlos zusammengestellten 
Sätzen handelt es sich um logische 
Ausdrücke, oder genauer: um bedingte 
Aussagen. Um den Einsatz bedingter 
Anweisungen geht es auch in dieser 
Folge unseres BASIC-Kurses. 

Wenn das Wörtchen 
AND nicht war’... 

Der folgende Satz läßt sich auf einfache 
Weise “computergerecht” umformen: 
"Die Glühbirne leuchtet, wenn Licht¬ 
schalter und Sicherung den Stromkreis 
schließen." 

Der Satz nennt die Bedingungen, die er¬ 
füllt sein müssen, damit (als Ergebnis) 


die Glühbirne leuchtet. Anders ge¬ 
schrieben sieht das so aus: 

Glühbirne an = Lichtschalter_an 
AND Sicherung an 

Das ist eine Gleichung-ebenso wie et¬ 
wa “x = 5”, nur daß die Variablen hier 
statt Zahlenwerten lediglich die Werte 
“wahr” oder “falsch” annehmen kön¬ 
nen. Das Rechnen mit solchen Werten 
nennt man Boolesche Algebra - nach 
dem Mathematiker Boole, der mit sei¬ 
ner binären Arithmetik die Verknüp¬ 
fung logischer Zustände beschrieben 
hat. 

Wahrheitsweite im 
Zahlengewand 

Die logischen Zustände “wahr" und 
“falsch” werden in BASIC durch die 
Zahlenwerte -1 und 0 repräsentiert. Der 


Eingang 1 

Eingang2 

Ausgang 

wahr 

wahr 

wahr 

falsch 

wahr 

falsch 

wahr 

falsch 

falsch 

falsch 

falsch 

falsch 


Jeder möglichen Eingangskombinati- 
on wird als Ergebnis der Wert “wahr 
oder “falsch” zugeordnet. Außer der 
hier dargestellten AND-Verknüpfung 
gibt es noch einige andere logische Ver¬ 
knüpfungen. Wir wollen uns hier 
jedoch auf diejenigen beschränken, 
die vom BASIC des CPC unterstützt 
werden. Komplexere Verknüpfungen 
lassen sich dann daraus zusammenset¬ 
zen. 

Die drei logischen 
”Verkuppler” 

Der altbekannte Blick ins Handbuch 
verrät, daß das CPC-BASIC drei logi¬ 
sche Verknüpfungen kennt: AND, OR 
und XOR. Die noch fehlenden Wahr¬ 
heilstabellen sehen folgendermaßen 
aus: 


OR-Funktion: 


Ein gang 1 

wahr 

falsch 

wahr 

falsch 


Eingang2 

wahl- 

wahr 

falsch 

falsch 


Ausg a ng 

wahr 

wahr 

wahl- 

falsch 
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10 

RE'M Wischi 


10 

REM Wasehi 

20 

Heiz\:nq-0: REM 0 = aus/-l=an 


20 

INPÖ(T"«Startknöpf (-1 -an) : ", Startknopf 

30 

Motor-Q: REM 0-aus/-l=ar 



30 

INPUT "Temperatur TemperaLur 

40 

Tuer-0: REM Ö=cffen/-l=zu 



40 

INPUT "Tuer : " ; Tuer 

50 

Startknopf=0: REM 0=au3/-i~an 



50 

IF Startknöpf=-l THEN TF Tuer~-1 THEN Mot or=-1 

60 

INPUT "Sr.artknopf t-l-an) : ", Startknopf 



ELSE Motor-0 

70 

INPUT "'Temperatur Temperatur 



60 

IF Temperatur<4 0 THEN IF Tuer=0 THEN GOTO 90 

80 

IM PUT "Tuer :",Tuer 



70 

Kei 2 urtg=~l 

90 

Motor =• Startknopf AND Tuer 



80 

GOTO ICO 

100 

Heizun< 3 = (Tempo::atur<4C) AND Tuet 


90 

Heizung-ß 

110 

PRINT "Heizung : ", Heizung 


100 PRINT "Heizung : Heizung 

120 

PRINT "Motor Motor 


11Ö PRINT "Motor : ", Motor 

130 

GOTO 60 


120 GOTO 20 


Das Programm “Wischi" löst das im Test beschriebene Waschmaschi - Das Programm “ Wasehi" arbeitet mit IF-TUEN-Abfragen. Es ist leich- 
nett-Problem mit Hilfe logischer Ausdrücke ter zu durchschauen, aber weniger elegant und langsamer als "Wischi" 


XOR-Funklion: 


Eingang! 

wahr 

falsch 

wahr 

falsch 


Eingang? 

wahr 

wahr 

falsch 

falsch 


Ausgang 

falsch 

wahr 

wahr 

falsch 


Diese Funktionen lassen sich nun nicht 
nur auf jeweils zwei logische Variablen 
anwenden, sondern auch auf ganze 
Gruppen. Solche Gruppen bestehen, 
wenn man Zahlen zwischen 0 und 256 
miteinander verknüpfen will, aus je¬ 
weils acht logischen Zuständen, näm¬ 
lich Bits. Eine Gruppe von acht Bits ist 
bekanntlich ein Byte. Was passiert 
aber, wenn man eine logische Verknüp- 
fungaufein Byte anwendet? 

Tippen Sie einmal folgendes ein: 

PRINT 128 AND 64 


Der CPC meldet 0. Wie kommt dieses 
Ergebnis zustande? Die Erklärung er¬ 
fordert einen kleinen Besuch bei Herrn 
Boole-alsoeinen Ausflug in die binäre 
Logik. 

Eine Zahl besteht für unseren Rechner 
aus einer Reihe von Bits, die jedes für 
sich entweder “gesetzt” oder “nicht ge¬ 
setzt” sind. Diese beiden Alternativzu¬ 
stände eines Bits kann man je nach Ge¬ 
schmack auch als “1” und “0” - oder 
eben als “wahr” und “falsch” bezeich¬ 
nen. 

Jedes Bit hat entsprechend seiner Posi¬ 
tion einen anderen Wert. Genau so kann 
ja auch im alltäglichen Dezimal-Zah- 
lensystem die Ziffer I den Werl I, 10 
oder 10000 haben, je nachdem, an wel¬ 
cher Stelle sie steht. Die Bitwerte bil¬ 
den ein Zweier-Zahlensystem. Man 
schreibt Binärzahlen der Bequemlich¬ 
keit halber in gleicher Richtung wie ih¬ 
re dezimalen Kollegen, also von rechts 
nach links. Die Wertigkeit eines Bitser- 


häll man somit durch stetes Verdoppeln 
der Wertigkeit seines rechten Nach¬ 
barn. Die Reihe lautet von rechts nach 
links 1,2,4,8,16,32,... bis 128, für das 
achte Bit eines Bytes. Für Zahlen, die 
mehr als ein Byte belegen, läßt sich die 
Reihe genau so weiterführen. Das nied¬ 
rigstwertige Bit, nämlich das mit der 
Wertigkeit 1, steht immer ganz rechts, 
das höchstwertige Bit immer ganz 
links. 

Wenn wir nun die Zahl 128 in Bits aus- 
drücken wollen, sähe das so aus: 

10000000 = 1.28 

Entsprechend die 64: 

01000000 = 64 

Wenn wir auf diese beiden Zahlen nun 
das logische AND anwenden, nehmen 
wir immer die Bits mit der jeweils glei¬ 
chen Wertigkeit und verknüpfen sie: 

10000000 

ÄND OIQOOOOO_ 

= 00000000 

Das mag ja ein ganz lustiger Effekt sein, 
aber wofür braucht man ihn? 

Bitmanipulation auf 
Umwegen 

Um einzelne Bits gezielt zu beeinflus¬ 
sen. gibt es in BASIC keine Befehle. 
Aber mit Hilfe der logischen Funktio¬ 
nen wird das möglich. 

Die AND-Funktion ermöglicht es, ein¬ 
zelne Bits zu löschen. Die OR-Funkti- 
on setzt einzelne Bits, und mit der 
XOR-Funktion kann man die Zustände 
einzelner Bits umdrehen. 
Angenommen, der CPC soll Punkte 
am Bildschirm setzen, deren Farbe 
ständig sämtliche Farbwerte von 0 bis 


31 durchlaufen soll. Dies läßt sich ent¬ 
weder mit einer IF-THEN-Konstrukti- 
on erreichen oder mit einem AND-Be- 
fehl. 

10 REM Punkte 1 
20 Farbe=0 

30 PLOT RND*64C, RNPM00, Farbe 
40 Farbe=Farbe+l 
50 IF Farbe=32 then Farbe=0 
60 GOTO 30 

Genauso kann man auch schreiben: 

20 Farbe=0 

30 PLOT RND*64C,RND*400,Farbe 
40 Farbe-(Farbe+1) AND 31 
60 GOTO 30 

Zeile 50 entfällt: Da alle höherwertigen 
Bits gelöscht werden, kann die Farbe 
nie größer als 31 werden. Bei diesem 
Trick ist jedoch Vorsicht geboten. Die¬ 
se Begrenzung funktioniert nur bei 
Zahlen, die um eins kleiner sind als die 
Bit-Wertigkeiten, also 1, 3, 7, 15, bis 
127 - bei anderen Zahlen haben man¬ 
che Bits “zwischendrin” den Werl 0, 
und schon ist der Bereich nicht mehr 
lückenlos abgedeckt. 

So weit, so gut. Sie sind jetzt in der La¬ 
ge, logische Funktionen zu beschrei¬ 
ben. Deren Verhalten ist Ihnen durch 
die Benutzung der Wahrheitstabei len 
auch nicht mehr schleierhaft. Was brin¬ 
gen diese Funktionen konkret bei der 
Programmentwicklung? Sie erhöhen 
den Komfort beim Programmieren. 

Zweimal große Wäsche 

Die Programme “Wischi” und “Wa¬ 
sehi", die in den Kästen zu diesem Arti¬ 
kel abgedruckt sind, sollen dies zeigen. 
Sie simulieren eine Waschmaschine. 
Der Motor soll nur dann laufen, wenn 
der Startknopf gedrückt und die Tür ge- 
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schlossen ist. Die Heizung soll hinge¬ 
gen beim Unterschreiten einer Tempe¬ 
ratur von 40 Grad eingeschaltet wer¬ 
den, aber nur wenn die Tür geschlossen 
ist. 

Vor allem an der Zahl der GOTOs merkt 
man deutlich den Unterschied zwi¬ 
schen “Wischi”, das logische Aus¬ 
drücke verwendet, und “Waschi", das 
sich an die klassische IF-THEN-Abfra- 
ge hält. 

Dabei kommt “Waschi” jedoch nur 
scheinbar ohne logische Verknüpfun¬ 
gen aus. Wir haben bisher klammheim¬ 
lich so getan, als habe der IF-Befehl 
nichts mit Boolescher Algebra zu tun 
und ihn benutzt, ohne ihn genauer zu er¬ 
klären. 

In Wirklichkeit tun die Befehle 1F- 
THEN-ELSE nichts anderes, als logi¬ 
sche Ausdrücke auszuwerten. Wenn 
der Audruck nach dem 1F wahr ist, dann 
wird der Teil nach dem TUEN ausge¬ 
führt. Anderenfalls kommen die Befeh¬ 
le nach dem ELSE an die Reihe. 

Ballspiele 

Betrachten wir als Anwendung logi¬ 
scher Verknüpfungen zum Beispiel ei¬ 
nen herumhüpfenden Ball. 

Unser Ball besitzt eine Bewegungs- 
richtung. Sie besteht aus X-und Y-Be- 
wegung. 

Er soll sich geradlinig bewegen, bis er 
am Bildschirmrand anstößt. Wenn er 
links oder rechts anstößt, soll er seine 
X-Richtung umkehren. Bei einer Kolli¬ 
sion oben oder unten wird entspre¬ 
chend die Y-Richtung umgekehrt. Wie 
man sieht, steckt in diesem Beispiel ei¬ 
ne Menge Logik. Wie schon beim 
Waschmaschinenbeispiel läßt sich 
auch diese Aufgabe auf unterschiedli¬ 
che Art lösen. Zuerst die herkömmliche 
Lösung: 

Wir setzen alle Variablen, wobei BX 


und BY die Position des Balls. VX und 
VY die Bewegung angeben. VX und 
VY sind entweder negative oder positi¬ 
ve Zahlen, je nachdem, in welche Rich¬ 
tung sich der Ball bewegt. 

10 REM Ball 

20 BX=20:BY=1C 

30 VX=1:VY=1 

Als nächstes wird der Ball gelöscht. 

40 LOCATE BX, BY 

50 PRINT""; 

Danach wird die neue Position berech¬ 
net. 

60 BX=BX+VX 

70 BY=BY+VY 

Jetzt überprüft das Programm, ob der 
Ball am Bildschirmrand angestoßen ist. 


80 

IF BX<40 THEN 100 

90 

VX=-1 

100 

IF BX>1 THEN 120 

110 

VX=1 

120 

TF BY<25 THEN 140 

130 

VY=-1 

140 

IF BY>1 THEN 1 60 

150 

VY=1 


Nachdem alle Werte korrigiert sind, 
können wir den Ball an seiner neuen 
Position ausgeben. 

160 LOCATE BX, BY 

170 PRINT "o"; 

Und das Ganze wieder von vorne: 

180 goto 40 

Sehr schnell und kompakt ist die Sache 
nicht. Dafür sind vor allem die 1F- 
THEN-Abfragen und die Sprünge ver¬ 
antwortlich. Es gehl aber auch anders. 


Die Zustände “wahr” und “falsch" wer¬ 
den, wie eingangs bereits erwähnt, in 
BASIC durch die Zahlenwerte -1 und 0 
repräsentiert. Mit diesen Schaltwerten, 
nämlich -I für einen wahren und 0 für 
einen falschen Ausdruck, lassen sich 
unsere Bedingungen für die Ballbewe¬ 
gung in Gleichungen fassen. So sparen 
wir Platz und steigern gleichzeitig die 
Ausführungsgeschwindigkeit. 

Der neue Abfrageteil lautet dann so: 

60 VX-VX * (BX>3 9 OR 3X<2) - 

VX* (BX<40 AND BX>1) 

70 VY=VY*(3X>24 OR BY<2)- 
VY* (BY<25 AND BY>1) 

80 3X=3X-VX*(BX<41 AND BX>0) 
90 BY=BY-VY* (BY<2 6 AND BY>0) 


Logischer 

Ballbeschleuniger 

Er ist wesentlich kompakter und 
schneller als die erste Version. Eine 
komplette Version des “Balls” finden 
Sie anschließend abgedruckt. In Zeile 
190 beginnt die Initialisierung des 
Bildschirms und der Variablen. In bx 
und by sind die aktuellen Koordinaten 
gespeichert. Nach deren Änderung 
bleiben die alten Werte noch in ox und 
oy erhalten. Das ist nötig, um den Ball 
wieder (Zeile 320) löschen zu können. 
Die Variablen werden anschließend in 
Zeile 339 aktualisiert. Ab Zeile 250 fin¬ 
det man den Abfrageteil mit der logi¬ 
schen Auswertung. Die Version kön¬ 
nen Sie noch weiter ausbauen, indem 
Sie beispielsweise die Schwerkraft 
berücksichtigen, Hindernisse einbau¬ 
en, einen Ballspieler hinterherlaufen 
lassen, und, und, und... 

Wir wünschen Ihnen viel Spaß und gu¬ 
tes Gelingen. 

Markus Kräutner/jg 


100 REM ******************************* [1576] 

110 REM ** ** l 409 ! 

120 REM ** BALL.BAS ** [476] 

130 REM ** (c) 1992 Markus Kraeutner ** [2927] 

140 REM ** S. CPC International ** [990] 

150 REM ** ** l 4 ? 9 ) 

160 REM ******************************* [1576] 

170 ' tH 7 J 

180 REM Bildschirm initialisieren ^ 44 iU 

190 MODE 1:INK 0,0:BORDER 6:INK 1,6 [2397] 

200 ' U 17 ] 

210 REM Variablen initialisieren [2187] 

220 bx=20:by=20:ox=bx:oy=by [1761] 

230 vx=-l:vy=-l ^1513] 

240 ' [117] 


250 vx=vx*(bx>39 OR bx<2)-vx*(bx<40 AND bx [2734] 


> 1 ) 

260 vy=vy*(by>24 OR by<2)-vy*(by<25 AND by [3606] 


>1) 


270 bx=bx-vx*(bx<41 AND bx>0) 

[2435] 

280 by=by-vy*(by<26 AND by>0) 

[1452] 

290 ' 

[117] 

300 REM Ball loeschen 

[1584] 

310 LOCATE ox,oy 

[1234 ] 

320 PRINT " 

[673] 

330 ox=bx:oy=by 

[1779] 

340 ' 

[117] 

350 REM Ball ausgeben 

[920] 

360 LOCATE bx,by 

[ 665 ] 

370 PRINT "o"; 

[638] 

380 GOTO 250 

[419] 
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Verknotet mit der 
Außenwelt 

Rechnernetze zum weltweiten 
Datenaustausch 

Wer konsequent DFÜ betreibt und nicht nur Programme, sondern auch 
Briefe per Computer verschicken möchte, wird sicherlich irgendwann mit 
Begriffen wie Zerberus, Fido, Maus oder auch Live-Net konfront iert werden. 
Was es damit auf sich hat? Wir wollen hierfür Klärung sorgen. 


Neben normalen Mailboxen im Stand- 
Alone-Betrieb gibt es auch ganze 
Gruppen von Mailboxen, die regel¬ 
mäßig untereinander Daten austau- 
schcn. Bei diesen Daten handelt es sich 
größtenteils um Texte, die entweder für 
die Allgemeinheit oder aber für einen 
bestimmten User innerhalb dieses Net¬ 
zes gedacht sind. 

Eines der größten Netze, die Rede ist 
von Fido, entstand vor etwa 15 Jahren 
in den Vereinigten Staaten. Von Tom 
Jennings ins Leben gerufen, schlossen 
sich in den nachfolgenden Jahren welt¬ 
weit tausende von interessierten Usern 
an dieses Netz an. Allein in Deutsch¬ 
land gibt es über 400 Nodes, die an Fido 
angeschlossen sind. Damit in diesem 
Netz, jede einzelne Mailbox wiederge¬ 
funden werden kann, bekommt jede 
Box eine Nummer, im Fachjargon 
AK A genannt. Sie sieht etwa so aus: 
z:nnn/bbb.pp 

Wie Sie sehen, wird die Nummer in vier 
Bereiche unterteilt. Die Nummer läßt 
sich wie folgt entschlüsseln: 

Z steht hierbei für Zone und umschreibt 
die Region, in welcher der Fido-An- 
schluß besteht. Die 2 an dieser Stelle 
bedeutet, daß die Box dem europäi¬ 
schen Raum zuzuordnen ist. 


Die nachfolgende Zahl nnn gibt nun 
wieder Auskunft über das Land sowie 
das Netz, in welchem die Mail box be¬ 
trieben wird. Deutschland belegt hier¬ 
bei die zwei Anfangsziffern 24 und 50. 
Die Netznummer identifiziert nun Ihre 
Box ganz genau. Sie wird nur einmal 
verteilt und erlaubt es so jedem, eine 
Nachricht gezielt an Sie zu verschicken. 
Eine letzte Unterteilung ist nun die 
Pointnummer. Und spätestens hier wird 
es für Sie interessant. 

Eine eigene Mailbox mit dem CRC oder 
PCW zu betreiben, ist doch etwas uto¬ 
pisch. Zwar existieren für beide Rech¬ 
ner Pseudo-Mailboxprogramme, doch 
sind sie in Leistung und Komfort nicht 
das, was man sich wünscht. Eine Auf¬ 
gabe für unsere Leser? Aber zurück 
zum Point. Die Pointnummer, die durch 
einen Punkt abgetrennt an eine Fido- 
Adresse angehängl wird, gestattet es 
Ihnen, auch ohne eigene Box im Fido- 
Netzaktiv zu werden. 

So bieten viele Mailboxbetreiber ihren 
Usern gegen eine kleine Kostenbeteili¬ 
gung an, über ihre Box Daten und Texte 
des Fido-Netzes zu empfangen und zu 
versenden. 

Alles, was Sie nun benötigen, ist ein 
Pointprogramm, das speziell für Sie 


aufbereitete Fido-Daten automatisch 
empfangen kann. Als Beispiel sei hier 
das aus der englischen Public Domain 
stammende CRR0110 genannt. 

Es macht im Grunde nichts anderes, 
als die für Sie auf der Stammbox ver¬ 
sandfertig gepackte Datei automatisch 
anzufordern und zu übertragen. Gleich¬ 
zeitig w'erden Ihre Texte an die entspre¬ 
chenden Empfänger verschickt . 

Damit der Stammrechner auch weiß, 
welche Daten für Sie interessant sind, 
müssen Sie ihm vorab einige Informa¬ 
tionen über gewünschte Textbretter ge¬ 
ben. Mehr hierüber erfahren Sie jedoch 
bei Ihrem Sysop. 

Von Rechner zu Rechner 

Wie wird man nun jedoch Point? Dies 
ist eigentlich gar nicht so schwierig. 
Am besten, man fragt zunächst den Sy¬ 
sop seiner Stammbox. in der man bisher 
seine Nachrichten und Programme be¬ 
zogen hat. 

Ist dieser an einen Netzverbund ange¬ 
schlossen. hat dieser Zugriff auf eine 
Liste, in welcher alle weiteren Boxen 
mit Nelzzugriff aufgelistet sind. So 
kann er Ihnen dann mit Sicherheit eine 
Box in Ihrer näheren Umgebung nen¬ 
nen, bei welcher Sie dann genaueres er¬ 
fahren können. 

Netze ohne Anschluß? 

Im Laufe der Zeit haben aber auch noch 
andere Netze Fuß gefaßt. Fido ist also 
bei weitem nicht das einzige. Die pro¬ 
minentesten Netze in Deutschland 
sind unter anderen Zerberus, Maus und 
Live-Net, die jeweils mit bestimmten 
Themenbereichen aufwarten. 

Da mancher vielleicht an einzelnen 
Themenbereichen mehrerer Netze in¬ 
teressiert ist, gibt es noch sogenannte 
Gateways. Hier handelt es sich um 
Knotenpunkte, auf denen Daten mehre¬ 
rer Netze ineinanderlaufen und milein¬ 
andervermischt werden. 

rs 


AK A - Benulzernunnner, die einen User welt¬ 
weit identifiziert 

Node - Fine Mailbox, die sich in einem Nclz- 
verbund befindet 

Point - Benutzer, der regelmäßig speziell für 
ihn zusammengesuchte Texte/Dateien, vom 
Sysop seiner Mailbox bekommt 
Sysop-Betreiber einer Mailbox 
Textbretter - In den einzelnen Netzverbänden 
werden Nachrichten in unterschiedlichen Text¬ 
breitem abgelegt. Als Beispiele seien hier nur 
Politik. Recht, Musik. Film und auch Sex/tiro- 
tik genannt. 
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Sanfte Schiebung 

Assembler-Ecke: Phasen-Animation 
und wandernde Sprites 

Bewegliche, vom Bildschirmhintergrund unabhängige Figuren sind eine 
wichtige Voraussetzung, wenn es darum geht, ein flottes Spiel auf dem CPC zu 

programmieren. Dieser Beitrag gibt Ihnen ein bequemes Werkzeug zur Ver¬ 
arbeitung animierter Sprites an die Hand. 


Im letzten Heft konnten Sie bereitseini¬ 
ges über den Bildschirmspeicher des 
CPC und über die Programmierung von 
.Sprites lesen. Was wirdort bereits in der 
Theorie erörtert haben, wird nun prak¬ 
tisch. Das Programm, das Sie im Li- 
stingkasten zu diesem Artikel finden, 
schiebt ein mit dem Joystick kontrol¬ 
liertes Sprite weich über den Bild¬ 
schirm und täuscht mit Hilfe mehrerer 
Bildphasen eine Bewegung vor. 

Von der Theorie zur 
Praxis 

Unser Sprite kennt zwei “Blickrichtun¬ 
gen”, die mit der Joystickbewegung 
umgeschaltet werden: rechts und links. 
Wir haben die Darstellung des Sprites 
in drei Phasen pro Blickrichtung aufge¬ 
teilt; es gibt also insgesamt sechs Pha¬ 
sen. Die Bitmaps für die einzelnen Pha¬ 
sen werden gemeinsam in dem Binär¬ 
file “Sprite.Spr” gespeichert, das der 
abgedruckte Basic-Lader erzeugt. 

Das Neue an dem abgedruckten As¬ 
semblerprogramm ist die Auswahl-Lo¬ 
gik für die gerade aktive Phase. Überei¬ 
ne Parameter liste läßt sich die Sprilc- 
darstellung steuern. Ein Teil des Pro¬ 
gramms wird in die Inlerruptschleife 
eingehängt und so immer wiederaufge¬ 
rufen. Dabei werden Parameter wie die 
momentane Bildschirmadresse, Pha¬ 
sennummer und Phasen wechselge- 
schwindigkeit aus der Liste ausgelesen. 
Die Verknüpfung dieser Parameter er¬ 
laubt die Spritedarstellung. 

Die Verschiebung des Sprites auf dem 


Bildschirm erfolgt in den Routinen, die 
bei der Joystickabfrage angesprungen 
werden, ln diesen Routinen wird je¬ 
doch nur ein Parameter aus der Liste, 
nämlich die Bildschirm ad resse, geän¬ 
dert. Der Aufbau des Assemblerpro¬ 
gramms ist dabei wie folgt: 
joy: die Joystickabfrage und 

die jeweilige Verzweigung 
klickon: Hiermit wird die Routine 

“show” in die lnterruptket- 
tc eingehängt (bei jedem 
Bildrücklaufstrahl soll 
“show” aufgerufen 
werden). 

klickof: hängt die Routine wieder 

aus. 

copy: sichert den Hintergrund. 

write: stellt das Sprite dar. 

write2 stellt den Hintergrund 

wieder her. 

oben: Abhängig davon, ob das 

Sprite den oberen Rand 
erreicht hat, wird die Bild¬ 
schirmadresse geändert. 
Dies wird durch Abfragen 
logischer Koordinaten 
festgestellt. Die Änderung 
der Adresse erfolgt nur, 
wenn bereits eine vorheri¬ 
ge Änderung registriert 
wurde. 

unten, links und rechts: siehe oben 
show: ln dieser Interruptroutine 

wird das Sprite dargestellt. 

Die Grafikdaten der einzelnen Sprite- 
Bewegungsphasen werden an die 
Adressen SPR1-SPR6 geladen, wobei 


die ersten drei die Daten für die 
Blickrichtung links aufnehmen. In dem 
“sprani” genannten Teil der Liste ste¬ 
hen die Adressen der Phasen, die auf¬ 
einander folgen sollen. Aus dieser Liste 
wird die jeweilige Adresse der Bewe- 
gungsphase ausgelesen. 

Die Liste wird von oben nach unten 
durchlaufen, anschließend geht es wie¬ 
der oben los. Am Beginn der Liste “la- 
bell" steht die aktuelle Bildschirm¬ 
adresse. Es folgt die Adresse mit dem 
Zeiger auf die Liste “sprani”, die die 
Bewegungsphasenadressen enthält. 
Das nächste Listenelement ist der Wert 
für die aktuelle Phase (0-3), gefolgt 
vom momentanen Wert für die Anima¬ 
tionsgeschwindigkeit - wenn dieser 
Null ist, wirdeine Phase weitergeschal¬ 
tet. Das Schlußlicht bildet der dazu¬ 
gehörige Nachladewert. 

In der Liste “tabe!2” stellt zuerst die 
Bildschirmadresse der alten Position, 
dahi nter dann die Adresse der gesicher¬ 
ten Hintergrunddaten. 

In der Routine “phase” wird in Abhän¬ 
gigkeit von einigen Parametern der 
Zeiger auf die aktuelle Darstellungs- 
phase gebildet. Genaueres dazu können 
Siedern Listingentnehmen. 

Durch die Verwendung der einzelnen 
Listen ist es möglich, mehrere Sprites 
zu verwalten und zu animieren. Sie 
müssen sich jedoch streng an den Auf¬ 
bau der jeweiligen Listen halten, wenn 
Sie sie erweitern. 

Abschließend noch ein Tip: Wenn .Sie 
die Anzahl der Darstellungsphasen er¬ 
höhen wollen, müssen Sie die Liste 
“sprani” entsprechend erweitern und in 
der Routine “phase” den Wert hinter 
dem Befehl “and” ändern. Für acht ver¬ 
schiedene Phasen muß dieser Wert bei¬ 
spielsweise? betragen. 

Das abgedruckte Listing entspricht bis 
auf die weggelassenen Zeilennummern 
und REM-Zeichen der Schreibweise 
unseres “CPC-Assemblers”. Für einige 
andere Assembler (etw'a “Devpac”) 
müssen die Additionszeichen in 
Pluszeichen umgewandelt werden. 

Matthias Fink/Ulrich Schmitz/sz 
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; orxaugt "Sprites.Din" 

t CPC Intorn.it ionnl 

1 lc) 1 992 Matthias; Kink 


AaOOO 



hl. Itatiel 1 l 


de.puflor 

.•.Sichern des Hintergrund« vor 
;d«?n ersten Darstml 1 er» 

call 







lbb2< 

; Joynt1 okahf rngo 

ld 

*,h 


ld 

c.a 


bit 

0,0 



nZrOben 


bit 

l r o 


041 1 

nz,unten 


bit 

2,e 



nz, 1 i nk*t 



3 r C 


cat 1 

nz,rechte 
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■4)07 

copy 2 


Ui 

a, 1 


mi'i 



UI 

i ,.i 


M 



odo 

a.h 


ld 

h, n 


3r 

nc,copy< 


ld 

4,1 


add 

•1,4. SC 


u 

1 .n 


1-J 



ndc; 

a.h 


id 

h,.» 

copy4 

dec 

c 


DP 

ret 

n/,copy 3 

•.-ritt. 

• d 

c, U< oben 

wri t3 

2 d 

b,i 

»ritz 

push 

t»C 


ld 



find 




n. 1 , ha. bl 


Ul 

a . Ml 1 t 


and 

*aa 

hn! bl 


n , .1 


-d 

fl, (du.) 


and 

455 



n*,lwl h/ 


Id 

n,ihl ) 


find 

4f.5 

luili; 

or 

c 


Ul 

(tu 1 ,o 


i nr 



ine. 

hl 


pop 

bi: 


•J in? 

writ 2 


id 



fidd 

fl.411. 


id 

1 ... 


1-J 

II , v 


ade 

a ,h 


Kd 

h, n 



tv ,wrlt4 


Id 

A. 1 


add 

«1,450 


Id 

1 .3 


Id 

.1,4.-0 


ade 

a.h 


hl 

h..i 

Wt 

dec 

c 


1P 

ret 

nz.wntJ 

wr , tt #2 

id 

c.Ui ;«inhi» olxin 

rsuhro. 

Ul 

b.5 

uchce -• 

1-J 

fl.'dfl) 


Id 

:hi:,n 


inc 

de 


i nu 

hl 



..ehre i 


Ul 

3. 1 


add 

3.41b 


Irl 

I 


Ul 

a, 7 


rtilr; 

a.h 


ld 

h.n 


ir 



ld 

a, 1 


/id«l 

a, 4 'Hl 


ld 

1 ,a 


1J 

J.4CÜ 


ade 

a.h 


ld 

h.a 

r.chro<) 

ricc 

c 


JP 

ret 

nz.fichre? 

ohon 

ld 

hl.yalt ;Nur wonn yalt und ypoB uaberein- 



fl, : ypoG 1 rstlnm.cn l a-sa «uno vorherige Po- 


Xor 

(Ml :sl tlornioimdoruiicj r.rhon "bemerkt" 


ret 

n~ rwunle), erfolgt eine erneut* 

; Anr.de rung 



i. yposl : Abf rfiqn , ob Hnr.rt erreicht Ist 


cp 

154 


rot. 

Z 


add 

a, 3 


ld 

(ypo«)... .-Aenderuno der Koordinaten 



i, (talMl l‘l) 

;Aend. der Bildlich! rtnarirer.SQ 


aub 

16 ;in der Liste "tabell" 


:d 

ltnbol 1*1 i ,n 


bit 

6,ä 


ret 

nz 


ld 

hl,;tobe - 1 i 


ld 

ifc*,4 3fb0 


add 

hl ,de 


ld 

re* 

(tabell),hl 

unten 

l'J 

h 1 ,yalt : a iehe oben 


ld 

a.(YI"s) 


xor 

(hl) 


rot 

r-z 


Ld 

fl, Iypo»; 





ret 



sub 

2 


lrt 

1ypos:,a 



a,Itnbel 1 •!( 


add 

U, 16 


1-J 

ftabel1•:),» 


ret 



ld 

hl, (tabell. 


Ul 

do.4C050 


add 



ld 

ret 

(tnbiil 1) ,bl 

..rihs 

Ui 

hl,xalt ?äiuh*r oben 


ld 

n, (xpos.: 


xor 

Ihl 1 



rot 




ld 

.1,0 



Sd 

: wert;: , .i 



ld 

9 .< xpos 1 




0 



ret 




deo 




Ld 

1xpos1,fl 




Bl.(tabu 1, 



»loc* 

hl 



Ld 

(toben i ,h. 


ret 



rechts 

ld 

hl .xalt 

jniehci obern 


ld 

a.iXpo*) 



xor 

(hl i 



ret 




ld 




ld 

•; vers i, a 



ld 

n ,ixposi 




75 



ret 

z 



ine 

3 



ld 

(xpnn) , 0 







inc 

hl 



Ld 

(tabell),hl 


rot 



mIicw 

di 




pueh 

at 

f5Ichttrn der Register 


push 

•IQ 



push 

bc 



pufih 




push 

IX 




ix.tabeil 

.■Antann iler PafanutGirtaten 


Ul 

hl,(tnbe\2) 




rAdresso der eilten Bi Idponition 


ld 

de . i tabu .:: 





rAdresr.e de» 11 jnttet'grundpuf fers. 


cal 1 

write 2 

fnersteUeh des Hintergrunds 


id 

hl, l tobe.. 1 





Irtkt. BildschimndrosEe 


ld 

(tiibfll 2) ,hl 


Ld 

de,(tabcl 2 

2; 




rPüffftradressc 


call 


■•Slcnurr. dc-s lllnternrunrts 


lrt 

hi.(tnball 

2! 




.-Anfangsadrnsse der 1‘hancnListe 


ld 

c,(ix-4) 

r «kt. Phattennuitner : O- j | 


id 

b,(ix* 5) 

noneritaner Verzoogerungswcr c 


ld 

e, (i x • 6) 

rda? oaehoeriffe: Nach 1 adewert 


Id 


rVer.nion; o-j;.nks l-rechts 


cal 1 


rkrnittolr. der Graf ikadressn 


ld 

(ix-SI.b 



ld 




ld 

hl, (tabell) 


CO 11 

wrire 

tD«r$t«llen der nfct.. Phase 


ld 

fl.(xpos) 

;AI<t.ial isieron d. log. Koorrt. 


ld 




ld 

0 .(ypesj 



ld 

(yoitl,o 



P‘>P 

IX 



P»P 




pop 

bc 



pop 

de 



pop 




ei 




rut 



Phase 

Bin 

n 

rlr. d: 0 fuer links, l luer rcchtr; 


610 

n 

midi 3, wei* •; Grafix-idressen 




■pro Richtung 



fi 

:ln der I.iste »sprani" 


inid 

n ,<; 

lOaxu dir. Bktucllm l'hnno dapix .11 , 


add 

u ,c 

;du eine Adresse :■ Bvteo elithÄlL 


add 

o.l 

.•plus Aniangsadr. d. Liste "sprani" 


10 

l.o 



& 

a.ij 



lrt 

h, :i 

;2n hl Stunt Adresse, d. ..kt. Phase 


ld 

a, 0 




phso? 

;Hüruntnrznflhlon de,*; Sch. eil onwnrtn 


lü 

b, e 

;worin Null, denn nachladen 


lrt 

ü ,C 

;Efhoehen der Phaaermummer 


inc 

o 

:ib2w. des Point^r=) 


and 

403 

;und hertchr-senkung auf Kurte 





phß«2 



;rj.« in der Liste "aprani" nur 


lrt 

U. (hl) 

:t. Phasen pro Plchtunq 


inc 

hl 

:rjon.?r'.ort sind 



rt,(hl ) 



r et 



tabell 

der« 

SrC 00Ö 

;üilduclilraadressae d. Sprites 


rtfli'w 

sprani 

: Ar. längs ad rosse der PhaaenliEte 

phn 

do f b 

0 

:Nummer d©r akt. Phase 


dort. 

•j, •» 

; Phneonwoclite) vor/oegerung. 




:Nach2adowert 

tabel? 

deiv 

40 000 

;Dililschirnadr . d. alten Position 


defw 

pufl«r 

.Adresse luer die Hiritergrunddaten 

sprani 

d«fw 


.'Adresse* fxior Phase l A.nks 


dnfv 

upr* 

;Adrnsso fuor Phase 2 :inkn 


deiw 


,Adresse fucr Pha»o J link:*. 


defw 


;Adreüse luer ptjar.e ?. linkes 

*;pran«? 

dc-iw 

spr<i 

;Adresse luor Phase 1 recht© 


dnfu 

nprt. 

:Artruspf. luer Phase 2 rechte 


defw 

r.prf. 

:ArtreGde (uer 1 'hsBe I rechts 


derw 

::prt> 

;Adro»sc tucc Ph.ir.n 2 rechts 

pürier 

Juls 

Bu 

:Puffer fuer den Hintergrund 

xpos 

detb 

0 

;logiuch© Koordinaten 

Xa 11. 

dnfb 

0 



di>fb 

» B-t 


yalt 

defb 

IM 


vers 

delb 

l 

;U • link«, 1 = roirhtr. 

taki: 

riefe 

2 


«v<mt 

dols 

6 


sprJ 

d*?f s 

BO 

(Bereich Euer die Gror 1 kdaten 


defs 

BD 


sprl 

rters 

BO 


spr 4 

duf* 

60 


»pr*j 

dnf r. 

B0 


»pr6 

■icir. 

BO 

.•rnde des Liftings 


100 MEMORY &9ITF 
110 FOR adr=0 TO 61EO 
120 READ bS:b-VAl,(bS> 

130 PORE 6A000*odr.b 
140 NliXT 

150 SAVE"sptiCBS.spi",b,6A000,61E0 

160 DATA 3,3,2,0,0,3,0,0,0,0 
170 DATA 3,0,0,0,0,2,2,0,0,0 
180 DATA 2,2,0,0,0,3,1.,0,0,0 
100 DATA 2,1,0,0,0,2,0,2,0,0 
200 DATA 0.0,2,0,0,0,0,1,0,0 
210 DATA 0,0,1,0,0,0,0,0,2,0 
220 DATA 0,0,0.2,0.0,0,0,0,0 
230 DATA 0,0,0,0,0,0,0,0,0,0 
240 DATA 0,0,0,0,0,0,0,0,0,0 
250 DATA 0,1,0,0,0,0,2,0,0,0 
260 DATA 0,2,0,0,0,1,0,0,0,0 
270 DATA 1,0,0,0,0,3,3,1,2,0 
280 DATA 3,3,3,2,0,1,0,0,0,0 
290 DATA 1,0,0,0,0,0,2,0,0,0 
300 DATA 0,2,0,0,0,0,1,0,0,0 
310 DATA 0,0,0,0,0,0,0,0,0,0 
320 DATA 0,0,0,0,0.0,0,0,0,0 


330 

340 

350 

360 

370 

3BO 

390 

400 

410 

420 

430 

440 

450 

460 

470 

400 

490 

500 

510 

520 

530 

540 


DATA 0,0,0,0,0,0,0,0,2,0 
DATA 0,0,0,2,0,0,0,1.0,0 
DATA 0,0,1,0,0,0,0,2,0,0 
DATA 2,0,2,0,0,2,1,0,0,0 
DATA 2,1,0,0,0,2,2,0,0,0 
DATA 2,2,0,0,0,3.0,0,0,0 
DATA 1,0,0,0,0,3,3,2,0,0 
DATA 0,0,1.3,3,0,0,0,0,3 
DATA 0,0,0,0,3,0,0,0,1,1 
DATA 0,0,Q, 1 , 1 ,0,0,0,2, . 
DATA 0,0,0,2,1,0,0,1,0,1 
DATA 0,0,1,0,0,0,0,2,0,0 
DATA 0,0,2,0,0,0,1,0,0,0 
DATA 0,1,0,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0,0,0 
DATA 0,0,0,2,0,0,0,0,1,0 
DATA 0,0,0,1,0,0,0,0,0,2 
DATA 0,0,0,0,2,0.1,3,3,3 
DATA 0,1,3,3,3,0,0,0,0,2 
DATA 0,0,0,0,2,0,0,0,1,0 
DATA 0,0,0,1,0,0,0,0,2,0 


11325) 

[1124J 
[ 1086) 
rioio i 

1805) 

(828) 

I 783) 
[1140) 
[1396] 
I10821 
[1465) 
I1086] 
[1070) 
[ 439 ■ 


1269 ) 
1269 ) 
[1104 

[1694 
[1373 
1136 
I 210 
[ 1680 ] 


550 

DATA 0,0,0,0,0,0,0,0,0,0 


560 

DATA 0,0,«>0,0,0,0,0,0,6 


570 

DATA 0,0,0,0,0,0,1,0,0,0 


580 

DATA 0,1,0,0,0,0,0,1,0,0 

(706| 

590 

DATA 0,0,2,0,0,0,0,1,0,0 


600 

DATA 0,0,1,0,1,0,0,11,2,1 


610 

DATA 0,0,0,2,1,0,0,0,1,l 


620 

DATA 0,0,0,1,1,0,0,0,0,3 


6.10 

DATA 0,0,0,0,3,0,0,1,3,3 


640 

DATA 0,0,0,0,0,0,0,0,0,0 

[12691 

10 

Startörogranm SPRITES.bas 

.1134) 

20 IHK 0,0:30RDBR ü:MODE 0 


30 INK I,3:INK 8,24:MEMORY &9FPF 

1783 ] 

40 LOAD"Sprites.bin",6AOOO 

1932 ] 

50 LOAD"sprUeB.spr",5A233 

! 1739 J 

60 FOR n-1 TO 459 :?RIKT CHRSI IMT(RND*220) 

.1999] 


: NEXT 


70 CALI. 4AOOO 

[637] 
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Know-how 


Booten vom EPROM 

CP/M ohne Ladezeiten 


Der CFC als Z80-Computer ist prädestiniert dafür, mit dem Betriebssystem 
CP/M benutzt zu werden. Wie Sie nun auch ohne Bootdiskette auskommen, 
zeigt Ihnen dieser Beitrag. 


Viele Nutzer des CPC arbeiten oft unter 
CP/M. Ist man gezwungen, häufig zwi¬ 
schen CP/M und BASIC zu wechseln, 
stört die Ladezeit erheblich. Außerdem 
muß man ständig eine CP/M-System- 
diskctte zur Hand haben oder auf der 
Arbeitsdiskette fast 40 Kilobyte für das 
Betriebssystem reservieren. Ist das 
wirklich nötig? Kann man nicht das 
CP/M ebenso wie das AMSDOS auf 
Knopfdruck verfügbar machen? 

Es ist möglich. Die hiervorgestellte Lö¬ 
sung wurde speziell für den CPC 6128 
ausgearbeitet. Zur Realisierung dieses 
Eigenbaus ist leiderein kleiner Eingriff 
in den CPC nötig. 

Kurz und schmerzlos 

Die im folgenden beschriebenen Arbei¬ 
ten sollten Sie äußerst vorsichtig durch¬ 
führen. Für eventuell entstehende 
Schäden können wir nämlich keine 
Haftung übernehmen. 


Sie beginnen mit dem Aufbau der Plati¬ 
ne. Zuerst löten Sie die Sockel auf und 
anschließend die 100 nF-Kondensato- 
ren. Diese dienen zum Abblocken der 
Betriebsspannung gegen Störungen. 
Nun noch die Diode und die Brücken a) 
bis j), und die Leiterplatte ist fertig. 

Die Fassung fürs EPROM wird jetzt 
Pin für Pin “huckepack” aufs BASIC- 
ROM(IC103) gelötet. Die Pins 22 
und 27 werden dabei frei gelassen und 
leicht weggebogen, so daß sie nicht 
die Anschlüsse des ROM berühren. 
Die Lötzeit sollte so kurz wie möglich 
gehalten werden. Anschließend ver¬ 
sorgen Sie die Platine nach der Verbin¬ 
dungsliste mit den notwendigen Si¬ 
gnalen. Vergessen Sie auch nicht die 
am EPROM-Sockel freigelassenen 
Verbindungen Pin 22 und Pin 27. 
Wünschen Sie das EPROM abschalt¬ 
bar, so verbinden Sie den Eingang von 
IC3B Pin6 über einen Umschalter mit 
IC2 Pin 9 oder +5 Volt. Alle Kabel 


20 Voc 

ICI 10 Möwe 


16 Vcc 

ICI 8 Moue 



Der Schaltplan der Leiterplatte 



Die Erweiterung wird unterhalb des Zahlen¬ 
blocks eingebaut 

sollten so kurz wie möglich gehalten 
werden. Jetzt brauchen nur noch das 
EPROM und die anderen ICs in die 
Fassungen eingesetzt zu werden. Die 
fertige Leiterplatte kann bequem 
zwischen der Hauptplatine und dem 
Diskettenlaufwerk untergebracht wer¬ 
den. 


Stückliste: 

IC I74LS273 

IC274LS138 
IC3 74LS02 
IC4 27256-15 

3 Kondensatoren lOOnF 

keramisch 

1 Diode 1N4148 

1 Sockel 28polig 

1 Sockel 20polig 

I Sockel löpolig 

I Sockel 14polig 

Lei t erplatte gern ä ß M u ste r 
Kabel 


Für „Selbstbrenner”: Das Programm 
ROM.BAS liest von der ICP/M 
-Systemdiskette die Datei 
C10CPM3.EMS ein und speichert sie 
in zwei Binärdateien ab. Diese werden 
dann in ein 32-kByte-EPROM ge¬ 
brannt. Im ersten Teil des CPM- 
EPROMs (CPM1.ROM) befindet sich 
dann auch der Programmteil, der das 
ROM in das Betriebssystem einbindet, 
indem er den RSX-Befehl ICPM3 zur 
Verfügung stellt. Wie dieser Befehl 
vermuten läßt, startet er das CPM Plus 
aus dem EPROM. Anschließend über¬ 
nimmt dieses die Kontrolle und ver¬ 
sucht, die Datei PROFI LE.SUB auf der 
Diskette zu finden. 

Die Schaltung ist für den CPC 6128 in 
Standardausrüstung, vorgesehen. Soll¬ 
ten Sie Hardwaree.fweiterungen benut¬ 
zen, und die Schaltung arbeitet nicht 
mit diesen zusammen, so lesen Sie bitte 
die Infodatei auf der Databox. 

Michael Kruse/jg 
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Das Leiterplattenlayout Der Bestückungsplan 


Verbindungsliste: 

Signal 

findet man an 

DO 

IC 201 PIN 6 

Dl 

IC 201 PIN 7 

D2 

IC 201 PINS 

D3 

IC 201 PIN 9 

D4 

IC 201 PIN 10 

D5 

IC 201 PIN 11 

D6 

IC 201 PIN 12 

D7 

IC 201 PIN 13 

A15 

IC 205 PIN 1 

CLK 

IC212PIN3 

ROMDIS der Kathode der Diode 
D201 (oberhalb von IC 
203; an der Seite mit dem 
Ring anlöten) 


+5 V, VCC am Ein/Aus-Schalter 
GND breiten Kupferbahnen, 
auf denen das Abschirm¬ 
blech gelötet ist 


So fertigen Sie die Leiterplatte an: 

Sie beginnen damit, das Layout in 
eine Form zu bringen, in der es mög- 
1 ich ist, es auf fotografischem Weg 
weiterzubearbeiten. Die beste Vari¬ 
ante ist, das Ganze auf Folie zu brin¬ 
gen. Hier kann man fotografieren 
oder reprografieren. Auch mit eini¬ 
gen Fotokopierern ist das möglich. 
Eine einfache Möglichkeit ist auch, 
das Layout auf Transparentpapier 
oder Fol ie mit einem passenden St i ft 
nachzuzeichnen. Mit dieser Vorlage 
wenden Sie sich dann an einen Elek¬ 
tronik-Händler in Ihrer Nähe. Der 
kann Ihnen dann möglicherweise 
weiterhelfen, eine fotografisch be¬ 
schichtete Leiterplatte zu belichten 
und zu ätzen. Auch in vielen Bastler¬ 
zeitschriften wird per Annonce ein 
Leiterplattenserviceangeboten. Nur 
noch bohren, und die Leiterplatte ist 
fertig. 


Unser Angebot: 

Falls Sie keinen EPROM-Brenner 
besitzen und auch kein Elektronik- 
Händler in der Nähe ist, der Ihnen 
das benötigte EPROM brennt: 
Schicken Sie einen 10-DM-Schein 
im Brief zusammen mit einem fran¬ 
kierten Rückumschlag an die Re¬ 
daktion. Wir senden Ihnen dann ein 
bereits programmiertes EPROM 
27256. 

(Falls Sie das EPROM mit veränder¬ 
ter ROM-Nummer gebrannt haben 
möchten, vergessen Sie bitte nicht, 
uns das mitzuteilen.) 

Unsere Adresse: 

Redaktion CPC International 
Stichwort: CPC-EPROM 
FuldaerStr. 6 
3440 Eschwege 


100 'ROM.BAS [976] 

110 'CPC 6128 [593] 

120 'Dieses Programm erzeugt zwei Dateien [4586] 

fuer eine CP/M 3.0 EPROM-Version 
130 'Auf der Diskette muss sich die Datei [3374] 
C10CPM3.EMS befinden 

140 '(c)1992 Michael Kruse [1651] 

150 ' & CPC International [2118] 

160 ' [117] 

170 MEMORY S.1FFF [710] 

180 zeile=170:adr=&A100 [595] 

190 check=0 [177] 

200 FOR i=l TO 8 [462] 

210 READ a$:IF a$ = "END" THEN 280 [1350] 

220 a=VAL("&"+a$):POKE adr,a [1324] 

230 adr=adr+l:check=check+a [1154] 

240 NEXT [350] 

250 READ a$:summe=VAL("&"+a$):IF summeoch [4824] 
eck THEN PRINT CHR$ (7) "Fehler in Zeile’'zei 


le:END 

260 zeile=zeile+10 
270 GOTO 190 
280 ' 

290 CALL &A100 

300 SAVE"CPM1 . ROM",B,&2000,&3C62 


[407] 

[117] 

[633] 

[699] 


310 SAVE"CPM2.ROM",B,&5C62,&2800 [2320] 

320 END [110] 

330 DATA CD,65, BC,21,35,Al,06,OB,02F6 [955] 

340 DATA 11,00,98,CD,77,BC,DO,21,039a [939] 

350 DATA 40,Al,11,00,20,01,62,00,0175 [1314] 

360 DATA ED,BO,EB,01,00,64,E5,C5,0497 [1706] 

370 DATA CD,80,BC,CI,El,77,23,OB,0450 [1198] 

380 DATA 78,B1,C2,1E,A1,00,11,00,02BB [1597] 

390 DATA 98,CD,7A,BC,C9,43,31,30,0408 [1776] 

400 DATA 43,50,4D,33,2E,45,4D,53,0226 [Ü38] 

410 DATA 01,00,00,00,0C,C0,C3,19,01A9 [2152] 

420 DATA C0,C3,1A,C0,52,4F,4D,43,038E [1601] 

430 DATA 50,4D,33,A0,43,50,4D,B3,0303 [1771] 

440 DATA 00,C9,21,37,C0,7E,B7,28,033E [1125] 

450 DATA 08,E5,CD,5A,BB,El,23,18,03EB [1658] 

460 DATA F4,21,52,C0,11,F0,0B,01,0334 [1569] 

470 DATA 10,3C,ED,B0,C3,F0,0B,0C,03B3 [1357] 

480 DATA 52,4F,4D,2D,56,65,72,73,02BB [1215] 

490 DATA 69,6F,6E,20,56,31,20,62,026F [1575] 

500 DATA 79,20,4D,4B,20,31,39,39,01F4 [1314] 

510 DATA 31,00,01,86,DF,ED,49,21,02EE [1817] 

520 DATA 00,C0,01,00,2C,ED,BO,CD,0357 [1713] 

530 DATA 03,B9,00,1A,00,00,00,00,0006 [1256] 

540 DATA END [267] 
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CP/M 


Funktionen aufgespürt 

Ein Utility für Pascal-Programmierer 

Wer in Turbo-Pascal programmiert, wünscht sich sicher etwas mehr 
Übersicht bei seinen Programmentwicklungen. Auch im nachhinein kann es 
wichtig sein, über seine selbstgeschriebenen Funktionen und Prozeduren 
den Überblick zu behalten. Wo w ar doch noch einmal die Prozedur XYZ ! 

DECL hilft Ihnen bei der Suche in Ihren Quelltexten. 


DECL listet von jeder Prozedur- oder 
Funktionsdeklaration innerhalb eines 
Pascal-Quelltextes den gesamten Kopf 
einschließlich spezieller Schlüssel¬ 
wörter wie EXTERNAL oder FOR¬ 
WARD auf. Es spielt dabei keine Rolle, 
ob im Quelltext Ihres Pascal-Pro¬ 
gramms die Schlüsselwörter groß oder 
klein geschrieben sind. DECL wandelt 
intern jedes erkannte Wort in Groß¬ 
buchstaben um. 

Bei der Suche nach den Schlüsselwör¬ 
tern PROCEDURE und FUNCTION 
darf natürlich nicht innerhalb von 
Strings oder innerhalb von Kommenta¬ 
ren gesucht werden, da an diesen Stel¬ 
len unter Umständen keine syntaktisch 
korrekten Deklarationen stehen. DECL 
berücksichtigt dieses Problem und 
ignoriert Strings und auch beide in Pas¬ 
cal erlaubten Kommentartypen (*...*) 
und {...}. 

Die Ausgabe von DECL ist eine Liste 
aller gefundenen Prozedur- und Funk¬ 
tionsdeklarationen eines Pascal-Quell¬ 
textes, wobei die absolute Zeilennum¬ 
mer des Deklarationsbeginns in der 
Quelldatei angegeben wird. Zusätzlich 
wird abschließend die Anzahl der er¬ 
kannten Prozeduren und Funktionen 
angegeben. 

DECL unterstützt in dieser Version nur 
eine Ausgabe der Daten auf den Bild¬ 
schirm. Eine Drucker- oder Dateiaus¬ 
gabe läßt sich jedoch von jedem leicht 
installieren. 

DECL erwartet bei der Quelldatei stan¬ 
dardmäßig die Dateiendung .PAS. Es 
können selbstverständlich auch andere 
Endungen angegeben werden. Dateien, 


die keine Endung besitzen, müssen für 
die Anwendung mit DECL mit einem 
Punkt schließen. Die Handhabung des 
Dateinamens ist äquivalent zu Turbo- 
Pascal. 

Für erfahrene Pascal-Programmierer 
wird sich nach Betrachtung der ersten 
Abbildung die Frage erübrigen, ob 
DECL auch die Schachtelung von Pro¬ 
zeduren und Funktionen erkennt und 
vor allem darstellen kann. 

Die Antwort ist “ja”, ln Pascal ist es 
schließlich möglich, Prozeduren in¬ 
nerhalb von Prozeduren, Funktionen 
innerhalb von Funktionen und beliebi¬ 


ge Kombinationen dieser Strukturen 
ineinander zu verschachteln. DECL 
erkennt diese Schachtelung und stellt 
sie durch Einrückung in der Ausgabe 
dar. 

DECL ist beim Aufruf ein Parameter 
milzugeben: Der Name der zu durch¬ 
forstenden Datei. 

Wie in der Abbildung ersichtlich ist. 
entwickelt DECL bei der Ausgabe der 
Deklaration eine gewisse Eigenwillig¬ 
keit: Es schert sich nicht um das Format 
einer Deklaration, sondern gestaltet sie 
nach den folgenden Regeln neu: 
Deklarationen, die nicht in einer Aus¬ 
gabezeile darzustellen sind, werden 
über mehrere Zeilen verteilt. Im ande¬ 
ren Fall werden mehrzeilige Deklara¬ 
tionen unter Umständen in einer Zeile 
zusammengezogen. Diese Art der Dar¬ 
stellung wurde gewählt, um eine unse¬ 
rer Meinung nach kurze und übersicht¬ 
liche Ausgabe zu erhalten. 

Außerdem werden innerhalb einer De¬ 
klaration eingebettete Kommentare 
übergangen. 

Markus Satte/rs 


DECL vl.O (C) 1992 Markus Satte & CPC International 

Auflisten der Prozedur- und Funktionsdeklarationen in Pascal-Programmen 
Datei : DECL.PAS 


PROCEDURE UpString (VAR source, dest: Mystring); 
FUNCTION PosNonBlank (VAR Line: MyString; 

Pos: INTEGER): INTEGER; 

PROCEDURE NumToStr (number: INTEGER; VAR txt: Mystring) 
FUNCTION BeqinOfWord (VAR Line: Mystring; Pos: INTEGER; 

BeginChar: CharSet): INTEGER; 
FUNCTION EndOfWord (VAR Line: Mystring; Pos: INTEGER; 

EndChar: CharSet): INTEGER; 

PROCEDURE NextLine; 

PROCEDURE StringComment; 

. PROCEDURE FindEnd (EndChar: CHAR); 

PROCEDURE GetNextWord (VAR Word: MyStnng; 

BegChars, EndChars: CharSet); 

PROCEDURE Out (txt: Mystring); 

PROCEDURE LineNum (num: INTEGER); 

PROCEDURE FuncProcOut; 

. PROCEDURE ParamsOut; 

FUNCTION FileExist (name: MyStnng): BOOLEAN, 

FUNCTION ParamOk: BOOLEAN; 

MAIN 


00039: 

00053: 

00063: 

00079 : 

00094: 

00106: 

00120 : 

00122 : 

00168: 

00195: 

00211 : 

00230: 

00238: 

00280 
00294 
00313 

Gefunden wurden insgesamt: 

davon: 
und: 


15 Unterprogramme, 
5 Funktionen 
10 Prozeduren. 


Erzeugte Deklarationsreferenz, wenn DECL auf sich seihst entwendet wird, 


Der Funktionsspuerhund ) 

Amstrad CPC 6128/PCW 8256/8512/9512 * 

(c) 1992 Markus Satte & CPC International 
Funktion: Auflistung aller Prozedur- und Funk- ) 

tionsdeklarationen innerhalb von Pascal-* 


(’ 

(’ 

(’ 

(* porgrammen. 

(* - 


(SP1024) 

(* fuer Turbo Pascal, ermoeglicht *) 

(* die Ausgabe-Umleitung *) 

PROGRAM Deel (Source, Output); 

CONST Linewidth = 

70; 

TYPE Mystring 

= STRING[255]; 

CharSet 

= SET OF CHAR; 
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VAR Source 

allChars, Delimiters, 
Numbers, Letters 
FileN'ame, 

word, Line, OutLine, Blanks 
LinePos, LineCount, inProc, 
FuncCount, ProcCount, 
BeginEnd, RecordEnd, TabPos 
DeelEnd, ready 


TEXT; 

CharSet; 

MyString; 


: INTEGER; 
: BOOLEAN; 


(* Dmwandeln eines Strings in Grossbuchstaben unter * 
(* Verwendung der Turbo-Standard-Funktion upcase(), * 
(* die nur fuer einzelne Zeichen definiert ist. Fuer * 
(* Nicht-Turboisten und dem ASCII-Zeichensatz: * 

(* FUNCTION UpCase (ch: CHAR): CHAR; * 

(* BEGIN * 

(* UpCase:=ch; * 

(* IF ch IN [ 'a' . .'z') THEN * 

(* UpCase:=Chr(Ord(ch)-32) ; * 

(* END; * 

PROCEDURE UpString (VAR source, dest : MyString); 

VAR i : INTEGER; 

BEGIN 

dest;=source; 

FOR i : =1 TO Length(dest) DO 

dest[i]:=UpCase(dest[i]); 

END; 

(* --- * 

(* ermittelt Position des ersten Nicht-Leerzeichens * 
(* in einer Zeichenkette ab der Start-Position. Wird * 
(* keines mehr gefunden, wird eine groessere Pos. als* 
(* Laenge der Zeichenkette zurueckgegeben. * 

FUNCTION PosNonBlank (VAR Line: MyString; 

Pos: INTEGER): INTEGER; 


BEGIN 

WHILE (Line[Pos] = 
Pos:=Succ(Pos) ; 
1F Liner Pos] = ' 
PosNonBlank:=Pos ; 
END; 

( : 


' ') AND (Pos < Length(Line)) DO 
THEN Pos:=Succ(Pos); 


(* Wandelt eine Integer-Zahl in eine Zeichenkette um :* 1 
PROCEDURE NumTostr (number : INTEGER; VAR txt.: MyString) | 

VAR ch : CHAR; 

BEGIN 

txt ; 

REPEAT 

ch:=Chr(number MOD 10 + Ord('O')); 
txt:=Concat( ch,txt ) ; 
number : =number DIV 10; 

UNTIL number = 0; 

END; 

(*- - -- *j 

(* sucht in der Zeile den Anfang eines Wortes ab der *) 
(* angegebenen Position. "BeginChar" ist die Menge *) 
(* der Zeichen, mit denen ein Wort anfangen darf: * 

FUNCTION BeginOfWord (VAR Line: MyString; 

Pos: INTEGER; 

BeginChar: CharSet): INTEGER; 

BEGIN 

WHILE (Pos <= Length(Line)) 

AND (NOT(Line[Pos] IN BeginChar)) DO Pos:=Succ(Pos) ; 
BeginOfWord : =Pos; 

END; 

(* - *) 

(* sucht in der Zeile das Ende eines Wortes ab der *) 
(* angegebenen Position. "EndChar" ist die Menge der *) 
(* Zeichen, die ein Wort abschliessen duerfen. Bei *) 

(* Compilern, die beide UNTIL-Bedingungen testen, *) 

(* muss hier die Bereichspruefung kurz ausgeschaltet *) 
(* werden. *) 

FUNCTION EndOfWord (VAR Line: MyString; 

Pos: INTEGER; 

EndChar: CharSet): INTEGER; 

BEGIN 

REPEAT 

Pos:=Succ(Pos); 

UNTIL (Pos > Length(Line)) OR (LinefPos] IN EndChar); 
EndOfWord : =Pos; 

END; 

(* - *) 

(* eine nicht leere Zeile aus der Quelldatei lesen *) 
(* und Zeilenzaehler erhoehen: *) 

PROCEDURE NextLine; 

BEGIN 

REPEAT 

ReadLn(Source,Line) ; LineCount:=Succ(LineCount) ; 
UNTIL Eof(Source) OR (Line <> '') ; 

END; 


(* - *) 

(* Ueberliesst Zeichenketten-Konstanten und Kommen- *) 
(* tare. Ist "Line[ LinePos]" ein Leerzeichen, wird *) 
(* der Anfang des naechsten Textes gesucht. Beginnt *) 
(* ein Kommentar oder String, wird dieser Ueberlesen *) 
(* und "Line[LinePos]" auf das den Kommentar folgende*) 
(* Nicht-Leerzeichen gestellt: *) 

PROCEDURE StringComment; 

PROCEDURE FindEnd (EndChar: CHAR); (* klar ?! *) 

BEGIN 
REPEAT 

LinePos: =Succ (LinePos); 

IF LinePos <= Length(Line) THEN BEGIN 
IF LinefLinePos] = EndChar THEN BEGIN 
IF EndChar = '*' THEN BEGIN 
IF (LinePos < Length(Line) ) 

AND (Line[Succ(LinePos) ] = ')') THEN BEGIN 
EndCharLinePos:=Succ(LinePos); 

END; 

END 

ELSE 

EndChar 

END; 

END 

ELSE IF E'of(Source) THEN EndChar: = ' ' 

ELSE BEGIN 

NextLine; LinePos :=0; 

END; 

UNTIL EndChar = ' '; 

LinePos: = PosNonBlank(Line, Succ( LinePos )); 
StringComment; (*falls gleich wieder einer folgt!*) 
END; 

BEGIN 

LinePos : =PosNonBlank(Line,LinePos); 

WHILE (LinePos > Length(Line) ) AND NOT Eof(Source) DO 
BEGIN 

NextLine; LinePos: =PosNonBlank ( Line,1 ); 

END; 

IF LinePos <= Length(Line) THEN 
CASE Line[LinePos] OF 

: FindEnd (''' '); 

'p' : FindEnd ('t'); 

' (' : IF LinePos < Length(Line) THEN 

IF Line [Succ(LinePos)] - '*' THEN BEGIN 
LinePos : =Succ(LinePos); FindEnd('*'); 
END; 

END; 

END; 

(* - 

(* Das naechste Wort liefern. *) 

(* "BegChars" ist die Menge der Zeichen, mit denen *) 
(* das Wort anfangen darf, "EndChars" enthaelt die *) 
(* Menge, die nicht zu einem Wort gehoeren: *) 

PROCEDURE GetNextWord (VAR Word: MyString; 

BegChars , EndChars:CharSet); 

VAR Pos : INTEGER; 

BEGIN 

word:=' '; 

WHILE (Word = ") AND NOT Eof (Source) DO BEGIN 
StringComment; 

IF LinePos <= Length(Line) THEN 

IF LinefLinePos] IN BegChars THEN BEGIN 
Pos:=BeginOf Word(Line, LinePos, BegChars); 

LinePos:=EndOfWord (Line,Pos,EndChars) ; 
word: --Copy (Li ne, Pos, LinePos-Pos) ; 

END 

ELSE Li nePos:=Succ(LinePos); 

END; 

END; 

( * --- 

(* Text-Ausgabe. *) 

(* Die Ausgabe wird solange zwischengespeichert, bis *) 
(* durch eine neue Ausgabe "LineWidth" ueberschritten*) 
(* wird oder eine leere Zeichenkette uebergeben wird.*) 
(* Nach der Ausgabe wird die naechste Ausgabe ab der *) 
(* Position "TabPos" getaetigt. Bei Ueberschreitung *) 
(* von "LineWidth" wird der auszugebende Text in die *) 
(* naechste Zeile uebernommen: *) 

PROCEDURE Out (txt: MyString); 

BEGIN 

IF txt = '' THEN BEGIN 

WriteLn(OutLine ); OutLine: = "; TabPos:=0; 

END 

ELSE IF Length(txt )+Length( OutLine) > LineWidth THEN 
BEGIN 

Wri teLn( OutLine) ; OutLine :=Copy(Blanks, 1 ,TabPos); 
END; 
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OutLine:=Concat(OutLine,txt); 

END; 

(* - - *) 

(* Zeilennummer der Prozedur/Funktion ausgeben und *) 
(* entsprechend der Schachtelung eine Einrueckung er-*) 
(* zeugen : *) 

PROCEDURE LineNum (num: INTEGER); 

VAR i ; INTEGER; temp: MyString; 


BEGIN 

Out(' ' ); 

IF num > 0 THEN BEGIN 
NumToStr(num,temp); 

WHILE Length(temp) < 5 DO temp:=Concat('0',temp); 
Out(Concat(temp,': ')); 

END 

ELSE Out(' '); 

IF inProc > 1 THEN BEGIN 

FOR i:=2 TO inProc DO Out('.'); 

Out(' ' ) ; 

END; 

END; 


(* - *) 

(* Prozedur/Funktions-Deklaration ausgeben: *) 


PROCEDURE FuncProcOut; 
VAR temp : MyString; 


(* - *) 

(* Parameter!iste der Deklaration ausgeben. Dabei *) 
(* werden zu lang«? Zeiilen umgebrochen und neu for- *) 
(* matiert: *) 
PROCEDURE ParamsOut; 


VAR tempword : MyString; 


BEGIN 

out(temp); TabPos:=Length(OutLine) +2; temp:=' {'; 
REPEAT 

GetNextWord(word,Letters , Delimiters); 

UpString( word , tempword ) ; 

IF tempword = 'VAR' THEN 

temp:=Concat(temp,tempword,' ') 

ELSE BEGIN 

temp: =Concat( temp,word) ; 

GetNextWord( word,['),allchars); 
temp : =Concat( temp, word); 

IF word <> ')' THEN temp:=Concat(temp,' '); 

IF word = ';' THEN BEGIN 
Out(temp); temp:= '' 

END; 

END; 

UNTIL word = ' )'; 

GetNextWord(word, ,allChars) ; 

END; 

BEGIN 

LineNum(LineCount); TabPos :=0; 

(»Deklarations-Anfang "PROC/FUNC Name ..." aufbauen*) 
temp :=Concat(word,' '); 

GetNextWord( word, Letters, Delimiters); (* Name *) 

temp: =Concat( temp, word ); 

GetNextWord (word,[' ( ' 1,allchars); 

IF word = '(' THEN ParamsOut; (* Parameterliste ? *) 
IF word = THEN BEGIN (* Funktionstyp ? *) 

GetNextWord (word,Letters,Del imiters) ; 
temp :=Concat(temp, ': ',word); 

GetNextWord( word ,[' ;'] ,allChars); 

END; 

IF word - ';' THEN temp:=Concat( temp ,';'); 

Out(temp); 

END; 

( * - --*) 

(* Test, ob angegebene Datei vorhanden ist: *) 

FUNCTION FileExist ( name : MyString) : BOOLEAN; 


VAR f : TEXT; 

BEGIN 

Assign(f,name); 

{$I —} (*I/O-Ueberwachung durch Laufzeitsystem aus. *) 
ReSet( f); 

{$ 1 +} (* ... und wieder an ! *) 

FileExist :=IOR.esult = 0; 

Close(f) ; 


(* pruefen, ob Parameterzeile ok ist: *) 

FUNCTION ParamOk: BOOLEAN; 


BEGIN 

ParamOk : =FALSE; 

IF ParamCount = 0 THEN 

WriteLn('*** Fehler: ungueltige Parameter angegeben !') 
ELSE BEGIN 

FileName : =ParamStr(l) ; 

IF Pos('.',FileName) = 0 THEN 

FileName:=Concat( FileName,' .PAS') ; 

UpString(FileName,FileName) ; 

IF NOT FileExist(FileName) THEN 

WriteLn('*** Fehler: Datei FileName, 

'" nicht gefunden ! ') 

ELSE 

ParamOk:=TRUE; 

END; 

END; 

( * - - *) 

BEGIN (* Deel *) 

WriteLn; 

WriteLn ('DECL vl. 0 ' , 

'(C) 1992 Markus Satte & CPC International'); 

WriteLn; 

WriteLn( 'Auflisten der Prozedur- und Funktionsdekla', 
'rationen in Pascal-Programmen'); 

IF ParamOk THEN BEGIN 

WriteLn ( 'Datei: ', FileName); WriteLn; 
allchars:=[' '..'t'] ; 

Numbers :=['0'..'9'] ; 

Letters :=['A'..'Z','a'..'z']; 

Delimiters:=allchars - Numbers - Letters - 
Line:»''; OutLirie:=''; Blanks:=''; 

FOR LinePos:=l TO 100 DO Blanks:=Concat(Blanks,' '); 
LineCount:=0; inProc :-0; 

BeginEnd :=0; RecordEnd:=0 ; 

FuncCount : =0; ProcCount : =0; 

LinePos :-l; ready:=FALSE; 

Assign( Source,FileName); 

ReSet(Source); 

WHILE NOT Eof(Source) AND NOT ready DO BEGIN 
GetNextWord(word,Letters,Delimiters ) ; 

UpString (word,word); 

IF word = 'BEGIN' THEN BEGIN 
IF inProc = 0 THEN BEGIN 

ready:=TRUE; LineNum(LineCount); Out('MAIN'); 
END 

ELSE BeginEnd:=Succ(BeginEnd); 

END 

ELSE IF word = 'CASE' THEN BEGIN 

IF RecordEnd - 0 THEN BeginEnd :=Succ( BeginEnd) ; 
END 

ELSE IF word = 'RECORD' THEN 
RecordEnd : =Succ(RecordEnd ) 

ELSE IF (word - 'EXTERNAL') OR (word = 'FORWARD') 
THEN BEGIN 

LineNum(O); Out (word); inProc :=Pred( inProc); 
END 

ELSE IF word = 'END' THEN 
IF RecordEnd > 0 THEN 

RecordEnd:=Pred ( RecordEnd) 

ELSE BEGIN 

BeginEnd :=Pred( BeginEnd); 

IF (inProc > 0) AND (BeginEnd = 0) THEN 
inProc : =Pred(inProc) 

END 

ELSE IF ( word=' PROCEDURE ') OR (Word- ' FUNCTION') 
THEN BEGIN 

inProc:=Succ(inProc) ; 

IF word = 'PROCEDURE' THEN 
ProcCount:=Succ(ProcCount) 

ELSE 

FuncCount : =Succ(FuncCount) ; 

FuncProcOut; 

END; 

END; (* WHILE *) 

Out(''); 

Close(Source) ; 

WriteLn; 

WriteLn('Gefunden wurden insgesamt: ', 

FuncCount+ProcCount : 3,' Unterprogramme,'); 
WriteLn(' davon: ', 

FuncCount:3, ' Funktionen'); 

WriteLn (' und: ', 

ProcCount:3, ' Prozeduren.'); 

WriteLn; 

END; 

WriteLn; 

END. 
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DATABOX 

ist der preiswerte Software-Service Ihrer Zeitschrift 

DATABOX 

enthält lauffähige Programme für Ihren Einsatz 

DATABOX 

lohnt sich auf jeden Fall - Monat für Monat 



DATABOX 


PCW 8256/8512/9512 


Wetterstation CPC 

Unsere Wetterstation aus der vergangenen CPC 
hat Zuwachs bekommen. Mit geringem Hard- und Soft¬ 
wareaufwand kann nun der PCW auch noch Tempera¬ 
turdaten auswerten. Die benötigte Software finden Sie 
auf der DATABOX. 


Patiencen 

Im Heft fanden Sie “Die Schwierige”. Die DATABOX 
kann neben dieser Kartenvariante noch mit zwei weite¬ 
ren Patiencen aufwarten. Unter den Titeln “Zickzack- 
Kurs” sowie “Der Zopf” wird der Nervenkitzel dann 
um so stärker. 

Trickkiste 

Zum ersten Mal haben wir auch in der Trickkiste für 
PCW- Besitzer interessantes anzubieten. Wie wäre 
es zum Beispiel mit einem kleinen Trick, der es er¬ 
laubt auch unter JRT-Pascal mit Leerstrings zu arbei¬ 
ten? Oder aber unser nützlicher Trick, der Ihnen zeigt, 
wie unter Verwendung des Betriebssystems, auch unter 
Turbo-Pascal das Directory eines Datenträgers einge¬ 
lesen werden kann. 


Einzelbezugspreis für DATABOX: 

PCW - 3-Zoll-Diskette 

24,- DM 

Wenn Sie über den DMV-Verlag bestellen, gilt folgendes: 

Inland: Ausland: 

Einzelpreis 24,- DM Einzelpreis 24.- DM 

zzgl Versandkosten 4,- DM zzgl. Versandkosten 6.- DM 

Endpreis 28,- DM Endpreis 30,- DM 


Zahlungshinweise: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zuzüglich der Nach¬ 
nahmegebühr, (Bei Lieferungen ins Ausland ist Nachnahme nicht möglich.) 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 




/ /Daten- und 

Medienverlag 

















Programm 



Sag mir, wann... 

Geschichtsdaten lernen und nach¬ 
schlagen mit “History” 

Was-Sie wissen nicht, wann Karl der Kulleräugige die wilden Antisepten in 
der furchtbaren Schlacht bei Hunzburg besiegte? Könnte es am Ende sein, 
daß Sie ein gespaltenes Verhältnis zu geschichtlichen Daten haben? In diesem 
Fall (und in etlichen tausend weiteren Fällen) brauchen Sie “History", unsere 
CPC-Geschichtsdatenbank. 


Geschichtsbücher pflegen durch viele 
Hände zu gehen. Der Schüler, der die 
eselsohrige, bekritzelte Schwarte im 
Schweiße seines Angesichts nach Da¬ 
ten von Lebens- und Regierungszeiten. 
Schlachten und Friedenskonferenzen 
betragt, findet in ihr meistens auch die 
Lebenszeichen vergangener Schüler¬ 
generationen, die sich mit dem gleichen 
Stoff abgeplagt haben. Und wie das ein¬ 
mal Geschehene seine Spuren unverän¬ 
derlich durch die Zeit zieht, bleiben 
auch die alten Anmerkungen und Esels¬ 
brücken stets die gleichen. “Drei - drei 


- drei, bei Issos Keilerei“ - mit diesem 
wenig geistvollen Merkspruch etwa ha¬ 
ben Geschichtslehrer bereits unseren 
Großeltern eingehämmert, was im Jah¬ 
re Dreihundertdreiunddreißig Weltbe¬ 
wegendes passiert ist. 

Auch wenn die Zeit des sturen Paukens 
in der Schule prinzipiell vorbei sein 
mag - ohne historische Daten geht es 
nach wie vor nicht. Allerdings ist nicht 
einzusehen, warum das Hantieren mit 
Geschichtszahlen nicht auch Spaß ma¬ 
chen sollte. Wozu hat man schließlich 
seinenCPC?Und, schwuppdiwupp: Da 


ist das Programm “History"-die Ablö¬ 
sung für zerrupfte Geschichtskladden 
und unübersichtliche historische Kom¬ 
pendien. Es läuft auf allen CPCs 
einschließlich Plus und kommt sogar 
mit Kassettenspeicherung klar. 

Aus deutschen Landen 
frisch auf den Bild¬ 
schirm 

Wie es sich für ein Programm aus deut¬ 
schen Landen gehört, hat “History“ die 
deutschen Umlaute samt “ß” eingebaut 
- nicht nur für die Bildschirmausgabe 
der Programmtexte, sondern auch für 
die Dateneingabe. So bleibt es dem Be¬ 
nutzer erspart, sich ständigen Zahn¬ 
schmerzen bei der Beschäftigung mit 
“Boehmischen Feldzuegen” und ähnli¬ 
chen “Merkwuerdigkeiten“ auszuset¬ 
zen. Sie erreichen die Umlaute im Pro¬ 
gramm über folgende Tasten: 
ä: <@> 

ö: <[> 

ü: <j> 

ß: <T>(“£”) 

Wie Sie sehen werden, sind deutsche 
Umlaute auch im Program ml ist ing 
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Wie bei der Führer- 
Stheinpriifung: Beim 
Abfragen braucht kein 
he xt eingegeben zu 
werden. Der Benutzer 
wühlt die richtige Lö¬ 
sung mit den Cursor¬ 
tasten aus. 


Ereignisse 



Milhein d. Eroberer siegt bei 
Englamf S uber Haral< * 2. von 




[1147-11491 [lg4l[ [10B6| 

■f 

Versuch: 27 |Henue1 


Nr . 17 


zahlreich vertreten. Um dieses Listing 
abzutippen, müssen Sie daher anders 
Vorgehen als gewohnt: 

Geben Sie zunächst die Programmzei¬ 
len bis 390 ein. Speichern Sie das Teil¬ 
programm nach erfolgter Fehlerkon¬ 
trolle sicherheitshalber ab. Starten Sie 
es dann mit “RUN”. Nach der “Ready ”- 
Meldung stehen die deutschen Umlaute 
auf Ihrer Tastatur zur Verfügung. Nun 
machen Sie mit dem Abtippen des Li¬ 
st ings bei Zeile400 weiter. 

Wenn Sie mit dem Checksummer ar¬ 
beiten. ist die Sache etwas komplizier¬ 
ter: 

1. Eingeben: “PRINT himem”. Ausge¬ 
gebenen Wert notieren. Dann Check- 
summer 1 aden und starten. 

2. Listing bis Zeile 390 abtippen und 
abspeichern. Dann eingeben: “ME¬ 
MORY XXX”. Für “XXX” schreiben 
Sieden vorher notierten Wert. 

3. Starten des Programms mit “RUN”. 
Anschließend den Rest ab Zeile 400 
zunächst ohne Hilfe des Checksummers 
abtippen. Nach getaner Tipparbeit 
“History.Bas” abspeichern. 

4. Reset durchführen (<Shift>+<Con- 
trol>+<Esc>). Dann noch einmal 
Checksummer laden und starten. 
Anschließend das abgespeicherte Li¬ 
sting “History.Bas” laden, aber nicht 
starten. 

5. Geben Sie ein: “ | check, 0,256”. 
Stoppen Sie die Ausgabe nach Zeile 
440 mit <Esc>. Überprüfen Sie die Pro¬ 
grammzeilen samt darunterstehenden 
Prüfsummen auf dem Bildschirm. 
Anschließend lassen Sie die Ausgabe 
durch Druck einer Taste weiterlaufen 
und stoppen sie nach dem nächsten 
Block erneut. Korrigiert wird dann wie 
gewohnt (zweimal <Esc>, “EDIT 
Zeilennr.” oder Übernahme vom Bild¬ 
schirm mit dem <Copy>-Cursor, Pro¬ 
grammzeile abschließen mit <Re- 
turn>). Stimmen alle angezeigten Prüf¬ 
summen mit den im Heft abgedruckten 
überein, speichern Sie “History.Bas” 
erneut ab. 

Bequem durch die Jahr¬ 
hunderte 

Nach dem Start meldet sich das Pro¬ 
gramm mit dem Hauptmenü, das neun 
Optionen zur Auswahl stellt. Ebenso 
wie in allen Untermenüs wählen Sie 
hier die gewünschte Option mit den 
Cursortasten “rauf’/”runter” und be¬ 
stätigen Ihre Wahl mit <Copy>. 

Eingabe: Daten und Eregnisse werden 
erfaßt. Es gibt dazu zwei Eingabefel- 


der: jede Eingabe wird mit <Return> 
abgeschlossen. Eine Datumseingabe 
läßt sich rückgängig machen, solange 
noch kein Ereignis angegeben wurde: 
Ein “L” im Ereignisfenster führt zurück 
zur Datumseingabe. 

Damit das Programm die Daten später 
sortieren kann, müssen die Zeitanga¬ 
ben in einer festgelegten Form erfol¬ 
gen. Je nachdem, ob ein bestimmter 
lag, ein Monat, ein Jahr oder ein Zeit¬ 
raum erfaßt werden soll, sind folgende 
Eingaben richtig: 

“15000 v”, “1992”. “07.1992”, 

"23.07.1992” und “ 1992-1993". 

Jedes Zeitdatum vor Christi Geburt wird 
mit einem nachgestellten "v" versehen - 
mit oder ohne Leerzeichen davor. 
Ändern: Es erscheint ein Untermenü, in 
dem Sie sich für das Löschen. Einfü¬ 
gen, Ändern oder Suchen einzelner 
Einträge entscheiden. 

Anschauen: Beim Durchblättern lernen 
Sie die eingegebenen und/oder gela¬ 
denen Geschichtsdaten einer Datei. 

Auswahl durch “Ankreu¬ 
zen” 

Ereignisabfragen: Das Programm gibt 
ein Ereignis vor und stellt drei mögli¬ 
che Zeitangaben zur Auswahl. Wählen 
Sie das zutreffende Datum mit den Cur¬ 
sortasten “rechts”/”links” und bestäti¬ 
gen Sie mit <Copy>. Der grafische Bal¬ 
ken in der Mitte des Bildschirms gibt 
über den momentanen Erfolgsstand 
Auskunft. 

Datum abfragen: das entsprechende 
Gegenstück mit vorgegebenem Datum 
und wählbarem Ereignis. 

Daten speichern/laden: Es erscheint 
ein Untermenü mit verschiedenen Da¬ 
teioperationen. Beim “Mergen” wird 


der Inhalt einer Geschichtsdatei zu den 
bereits im Speicher des Computers be- 
findlichen Daten hinzugeladen. Ein so 
zusammengefügler Datenbestand läßt 
sich dann als Gesamtdatei wieder ab¬ 
speichern. Dateinamen werden ohne 
Erweiterung eingegeben - das Pro¬ 
gramm setzt automatisch die Erweite¬ 
rung “.HIS” an den Namen der ge¬ 
wünschten Geschichtsdatei. 

Die Option “Speed” kommt nur zum Zu¬ 
ge. wenn man Geschichtsdaten auf Kas¬ 
sette speichern will: Sie erlaubt es, die 
Speichergeschwindigkeit auf 1000 (I) 
oder 2000 (2) Bits pro Sekunde zu setzen. 
Lexikon: Hier sucht das Programm zu 
einer Zeitangabe des Benutzers das 
passende Ereignis heraus - sofern es im 
Speichereines findet. Die Benutzerein¬ 
gabe und das gespeicherte Datum des 
Ereignisses müssen genau iibercin- 
stimmen. auch was die Schreibweise 
betrifft. 

Sortieren: Setzt neue Einträge inner¬ 
halb des Datenbestands im Speicher an 
die richtige Stelle. Der Sortiervorgang 
läßt sich mit <C> starten. <Z> läßt den 
gespeicherten Datenbestand komplett 
durchlaufen, <1> verringert die Durch¬ 
laufgeschwindigkeit, <h> hält die An¬ 
zeige an (weiter mit beliebiger Taste) 
und <e> bricht sie ab. 

Ende: Ein Untermenü erlaubt es. ent¬ 
weder die im Speicher vorhandenen 
Daten zu löschen oder ins Basic 
zurückzukehren. 

Übrigens: Bezieher der DATABOX- 
Diskette zu diesem Heft haben gegen¬ 
über den fleißigen Abtippern den klei¬ 
nen Vorteil, daß sie zu "History” bereits 
eine Beispieldatei “Daten.His” mit 
rund 100 Einträgen aus der Weltge¬ 
schichte milgeliefert bekommen. 

(Armin Müller/sz) 


10/11'92 CPC 37 














iramm 


100 ' HISTORY [1027] 

110 ' (c) 1992 Reiner Mueller [1332] 

120 ' & CPC International [2118] 

130 IF HIMEM<40000 THEN 330 [632] 

140 '*** Fragezeichen *** [1399] 

150 SYMBOL AFTER 175 [1433] 

160 SYMBOL 175,0,&3,&F,&1F,S.3F,&7F,&7F,&7F [2621] 
170 SYMBOL 176,&FC,&FF,&FF,&FF,&FF,&FF,&8F [2267] 
,&7 

180 SYMBOL 177,0,0,&C0 / &E0,&F0,&F8, S.F8, S.F8 [2265] 
190 SYMBOL 178,S.7F, S.7F, S.3E,0,0,0,0,1 [1928] 

200 SYMBOL 179,S.7,S.7,S.F,&1F,S.3F,S.7F,S.FF,S.F [2019] 

F 

210 SYMBOL 180,&F8,5.F8,ScF8,S.F0,S.E0,&C0,S.80 [2925] 
220 SYMBOL 181,1,1 [977] 

230 SYMBOL 182 ,&FE, S.FC, S.F8,0 , S.70, S.F8, S.F8, S. [2700] 
70 

240 '*** Umlaute *** [876] 

250 SYMBOL 183 ,&DB, S.3C, S.66, S.66, S.7E,&66,&66 [2183] 

• * Plq 

260 SYMBOL 184,S.BB,&6C, S.C6, &C6,S.C6,&6C,&38 [3002] 

: ' Oe 

270 SYMBOL 185 ,S.C3 ,S.66 , S.66 ,S.66 ,S.66 ,S.66 ,&3C [2169] 

: ' Ue 

280 SYMBOL 186,S.CC,0,&78,&C,&7C,S.CC,&76: ' [2230] 
ae 

290 SYMBOL 187 , S.66,0 , S.3C, S.66 , S.66 ,&66,&3C: ' [2981] 
oe 

300 SYMBOL 188 , S.66,0, S.66 ,&66,&66 ,&66,&3E: ' [1884] 
ue 

310 SYMBOL 189, S.3C, S.66, S.66,&6C,&66,&66,&6C [2522] 
,5.60 

320 OPENOUT"d":MEMORY HIMEM-1:CLOSEOUT [2613] 

330 KEY DEF 26,1,186,183 [810] 

340 KEY DEF 17,1,187,184 [1016] 

350 KEY DEF 19,1,188,185 [1194] 

360 KEY DEF 24,1,189,163,0 [1376] 

370 SPEED KEY 20,1 [1372] 

380 ENT 2,100,2,20 [763] 

390 PRINT CHR$(23) [1145] 

400 INK 0,2:INK 1,24:INK 2,14:INK 3,8 [587] 

410 BORDER 11 [950] 

420 DEFINT a-i,k-w,y,z [1242] 

430 j=20:p=13:n=l:wa=100:dm=105:'*** dm = [3745] 

max. Anzahl von Daten 

440 DIM dtm$(dm),day(dm),monat(dm),jahr(dm [6604] 

),ind(dm),erg$(dm),nd$(dm),ne$(dm),kontrol 
le(j),wahll$(9),wähl2$(6),wähl3$(6) 

450 text3$="Zuwenig Daten vorhanden !" [1517] 

460 FOR a=0 TO 9:READ wahllS(a):NEXT [1612] 

470 DATA "Menü",Eingabe,"Ändern",Anschauen [9297] 

,Ereignis abfragen,Datum abfragen,Daten sp 
eichern/laden,Lexikon,Sortieren,Ende 
480 FOR a=l TO 6:READ wahl2$(a):NEXT [3288] 

490 DATA "Menü","Löschen",Suchen,"Ändern", [5736] 
Suchen,"Einfügen" 

500 FOR a=l TO 6:READ wähl3$(a):NEXT 
510 DATA "Menü",Load,Save,Merge,Cat,Speed [3007] 
520 ON BREAK GOSUB 5580 [595] 

530 '### Menue ### [779] 

540 MODE 1 [506] 

550 PAPER#0,0 [1312] 

560 PEN 1 [549] 

570 POKE S.B1C8,0 : POKE &B1CF,207:POKE &B1D0 [1939] 
,118 

580 LOCATE 6,7:PRINT"History" [2540] 

590 POKE S.B1C8,1: POKE S.B1CF, 136 : POKE &B1D0 [2427] 
,68 

600 MOVE 80,280:DRAW 555,280 [1249] 

610 PEN 2 [548] 

620 MOVE 1,1:DRAW 1,398,1:DRAW 638,398:DRA [2539] 
W 638,1:DRAW 1,1 

630 pp=p:p=l2:GOSUB 5180:p=pp [1141] 

640 FOR a=l TO 9:LOCATE 11,a+12:PRINT wähl [2379] 
1$(a):NEXT 

650 MOVE 120,216:DRAW 500,216,3:DRAW 500,5 [4063] 
5:DRAW 120,55:DRAW 120,216 

660 LOCATE 9,p:PRINT CHR$(243)" "CHR$(24)W [2743] 
ahll$(p-12)CHR$(24) 

670 LOCATE 7,24:PRINT"Es sind"an"Daten vor [3958] 

handen!" _, 

680 a$=INKEY$:IF a$="" THEN 680 [1392] 

690 a=ASC(a$) [1036] 

700 LOCATE 9,p:PRINT" "wahllS(p-12) [1040] 

710 IF a=224 THEN ON p-12 GOTO 770,1140,19 [3533] 
30,2170,2880,3570,4200,4720,5040 

720 IF a=240 THEN p=p-l:IF p<13 THEN p=21 [2295] 

730 IF a=241 THEN p=p+l:IF p>21 THEN p=13 [1702] 

740 LOCATE 9,p:PRINT CHR$(243)" "CHR$(24)w [2743] 
ahllS(p-12)CHR$(24) 


750 GOTO 680 [460] 

760 •### Eingabe ### [509] 

770 GOSUB 5150 [853] 

780 MOVE 166,317:DRAW 166,308 [2081] 

790 MOVE 2,86:DRAW 636,86 [1397] 

800 MOVE 166,90:DRAW 166,22 [1287] 

810 MOVE 2,25:DRAW 636,25 [922] 

820 WINDOW#1,1,10,7,19 [1245] 

830 WINDOW#2,12,40,7,19 [1531] 

840 WINDOW#3,1,10,21,23 [1469] 

850 WINDOW#4,12,40,21,23 [1584] 

860 PAPER# 1,2‘.PAPER# 2,2 [2027] 

870 PAPER#3,3:PAPER#4,3 [1962] 

880 PEN#1,1:PEN#2,1 [901] 

890 PEN#3,1:PEN#4,1 [1528] 

900 CLS#1:CLS#2:CLS#3:CLS#4 [1769] 

910 LOCATE 15,25:PRINT"L-Löschen E-Ende" [1724] 

920 an=an+l:IF an>dm-l THEN BORDER 4:LOCAT [5905] 
E#7,11,1:PEN#7,3:PRINT#7," Speicher voll! 

";:PEN#7,1:CALL &BB18:BORDER ll:GOTO 1100 
930 GOSUB 1120 [859] 

940 CLS#3:CLS#4 [695] 

950 LINE INPUT#3,"",eingabel$ [3065] 

960 IF eingabel$="" THEN 940 [467] 

970 IF LOWERS(eingabelS)="e" THEN 1100 [1829] 

980 'dtm$(an)=LEFT$(eingabel$,10) [1615] 

990 dtm$(an)=eingabel$:'datzeil=INT(LEN(ei [2633] 
ngabel$)/10) 

1000 GOSUB 1120 [859] 

1010 CLS#4 [386] 

1020 LINE INPUT#4,"",eingabe2$ [2240] 

1030 IF eingabe2$="" THEN 1010 [757] 

1040 IF LOWER$(eingabe2$)="e" THEN 1100 [1202] 

1050 IF LOWERS(eingabe2$)="l" THEN 940 [1605] 

1060 erg$(an)=LEFT$(eingabe2$,86) [1782] 

1070 CLS#3:CLS#4 [695] 

1080 i=an:GOSUB 5600:' Scroll [1796] 

1090 GOTO 920 [332] 

1100 dtm$(an)="":an=an-l [795] 

1110 GOTO 540 [425] 

1120 LOCATE 3,25:PRINT"Nr.";an:RETURN [1527] 

1130 '### Aendern ### [881] 

1140 MODE 1 [506] 

1150 pp=3:h=6 [205] 

1160 GOSUB 5180 [879] 

1170 WINDOW#1,1,10,15,23 [1236] 

1180 WINDOW#2,12,40,15,23 [1586] 

1190 PAPER#1,2:PAPER#2,2 [2027] 

1200 PEN#1,1:PEN#2,1 [901] 

1210 CLS#1:CLS#2 [576] 

1220 LOCATE 1,13:PEN 3:PRINT" Datum Er [3789] 
eignisse":PEN 1 

1230 MOVE 2,187:DRAW 636,187 [1386] 

1240 MOVE 168,192:DRAW 168,20 [1207] 

1250 MOVE 2,25:DRAW 636,25 [922] 

1260 LOCATE 6,7:PRINT"Nr.";n AND an>0 [3015] 

1270 FOR a=l TO 6:LOCATE 28,a+5:PRINT wähl [2583] 
2$(a):NEXT 

1280 LOCATE 35,8:PRINT CHR$(244) [2050] 

1290 LOCATE 35,9:PRINT CHR$(207) [2055] 

1300 LOCATE 35,10:PRINT CHR$(245) [1857] 

1310 LOCATE 28,6:PRINT CHR$(24)wähl2$(1)CH [3217] 
R$(24)SPC(5)CKR$(242): 1 Pfeil 

1320 MOVE 425,324:DRAW 598,324:DRAW 598,22 [3515] 
0:DRAW 425,220:DRAW 425,324 

1330 PRINT#l,dtm$(n):PRINT#2,erg$(n) [2052] 

1340 '+++ Abfrage +++ [695] 

1350 a$=INKEY$:IF a$ = "" THEN 1350 [1474] 

1360 a=ASC(a$) [1036] 

1370 LOCATE 37,h:PRINT" " [829] 

1380 IF a=224 AND h=6 THEN 540 [1721] 

1390 IF a=224 AND an>0 THEN ON h-6 GOSUB 1 [4017] 
470,1610,1670,1750,1810 

1400 LOCATE 28,h:PRINT wahl2$(h-5) [592] 

1410 IF a=240 THEN h=h-l:IF h<6 THEN h=ll [2968] 
1420 IF a=241 THEN h=h+l:IF h>ll THEN h=6 [1986] 

1430 LOCATE 6,7:PRINT"Nr."n AND an>0 SPC(4 [2322] 

1440 LOCATE 28,h:PRINT CHR$(24)wahl2$(h-5) [2399] 
CHRS(24):LOCATE 37,h:PRINT CHR$(242) 

1450 GOTO 1350 [460] 

1460 '+++ Loeschen +++ [1017] 

1470 nn=n [263] 

1480 LOCATE#2,3,7:PRINT#2,"Löschen... [J [2232] 
/N] 

1490 a$=INKEY$:IF a$="" THEN 1490 [1439] 

1500 IF LOWERS(aS)<>"j" THEN LOCATE#2,3,7: [3278] 
PRINT# 2,SPC(20):RETURN 

1510 IF an=l THEN dtm$(n)="":ergS(n)="":an [3460] 
=0:n=l:GOTO 1630 

1520 an=an-l:fl=l [672] 
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1530 

FOR i=n TO an 

[660] 

1540 

dtm$(i)=dtm$(i+1):erg$(i)=erg$(i+l) 

[2269] 

1550 

NEXT 

[350] 

1560 dtm$(an+l)="":erg$(an+1)="" 

[1455] 

1570 

IF an<n THEN nn=0:n=l 

[813] 

1580 

GOSUB 1630 

[861] 

1590 fl=0:nn=nn+l:LOCATE 6,7:PRINT"Nr."nn 
AND an>0 SPC(4):GOTO 1480 

[2600] 

1600 

'+++ aufwaerts zeigen +++ 

[701] 

1610 

n=n+l 

[140] 

1620 

IF n>an THEN n=l 

[79] 

1630 

CLS#1:CLS#2 

[576] 

1640 

PRINT#1,dtm$(n):PRINT#2,erg$(n) 

[2052] 

1650 

RETURN 

[555] 

1660 

'+++ Daten aendern +++ 

[1574] 

1670 

LOCATE#1,1,7:LINE INPUT#l,"",eingabel 

[2065] 

1680 

LOCATE#2,1,7:LINE INPUT#2,"",eingabe2 

[2955] 

1690 IF NOT eingabel$="" THEN dtm$(n)=LEFT 
$(eingabel$,l0) 

[2777] 

1700 IF NOT eingabe2$="" THEN erg$(n)=LEFT 
S(eingabe2$,86) 

[2853] 

1710 

CLS#1:CLS#2 

[576] 

1720 

PRINT#1,dtm$(n):PRINT# 2,ergS(n) 

[2052] 

1730 

RETURN 

[555] 

1740 

'+++ abwaerts zeigen +++ 

[936] 

1750 

n=n-l 

[104] 

1760 

IF n<l THEN n=an 

[935] 

1770 

CLS#1:CLS#2 

[576] 

1780 

PRINT#1,dtm$(n):PRINT#2,erg$(n) 

[2052] 

1790 

RETURN 

[555] 

1800 

'+++ Einfuegen +++ 

[875] 

1810 

IF an+l>dm-l THEN RETURN 

[900] 

1820 

LOCATE#1,1,7:LINE INPUT#1,"",eingabel 

[2065] 

1830 

IF eingabel$="" THEN RETURN 

[385] 

1840 

$ 

1850 

LOCATE#2,1,7:LINE INPUT#2,"",eingabe2 

[2955] 

IF eingabe2$="" THEN RETURN 

[1044] 

1860 

n=n+l 

[140] 

1870 

FOR i=an TO n STEP -1 

[504 ] 

1880 

dtm$(i+1)=dtm$(i):erg$(i+1)=erg$(i) 

[1372] 

1890 

NEXT 

[350] 

1900 

GOSUB 1690:an=an+l:LOCATE 6,7:PRINT"N 

[3050] 

1910 GOTO 1810 

[ 377 ] 

1920 

'### Anschauen ### 

[ 342 ] 

1930 

GOSUB 5150 

[853] 

1940 

MOVE 166,317:DRAW 166,308 

[2081] 

1950 

MOVE 2,42:DRAW 636,42,3 

[1030] 

1960 LOCATE 1,24:PRINT CHR$(24) "COPY-Menü/ 
A-Anfang/Z-zurück/Taste-weiter"CHR${24); 

[6438] 

1970 

WINDOW#1,1,10,7,22 

[1258] 

1980 

WINDOW#2,12,40,7,22 

[1524] 

1990 

PAPER#1,0:PAPER#2,0 

[2107] 

2000 

PEN#1,1:PEN#2,1 

[901] 

2010 

IF st>=an THEN st=0 

[237 ] 

2020 

b=0 

[312] 

2030 

st=st+l 

[342] 

2040 

i=st:GOSUB 5600:' Scroll 

[ 850] 

2050 

b=b+l 

[569] 

2060 

IF st=an THEN PRINT CHR$(7);:GOTO 209 

[1975] 

2070 

IF b=4 THEN 2090 

[719] 

2080 

GOTO 2030 

[365] 

2090 

a$=INKEY$:IF a$="" THEN 2090 

[1510] 

2100 

CLS#1:CLS#2 

[576] 

2110 

IF a$=CHR$(224) THEN st=st-b:GOTO 540 

[1462] 

2120 

IF LOWERS(a$)="a" THEN st=0 

[1783] 

2130 

4>=0 

IF LOWERS(a$)="z" THEN st=st-b:IF st- 
THEN st=st-4 

[2967] 

2140 

IF st=an THEN st=0 

[712] 

2150 

•GOTO 2020 

[ 359 ] 

2160 

'### Ereignisse abfragen ### 

[846] 

2170 

162 

ver=0:schritt=0:zufall=10:xpo=80:ypo= 

[1614] 

2180 

GOSUB 5150 

[853] 

2190 

WINDOW#1,1,10,7,11 

[1253] 

2200 

WINDOW#2,12,40,7,11 

[1539] 

2210 

WINDOW# 3,3,38,19,21 

[900] 

2220 

WINDOW#4,8,33,22,22 

[1405] 

2230 

PAPER# 1,2-.PAPER#2,2 

[2027] 

2240 

PAPER#3,0:PAPER#4,0 

[2067] 

2250 

PEN#1,0:PEN#2,0:PEN#3,2 

[2208] 

2260 

CLS#1:CLS#2 

[576] 

2270 LOCATE 3,15:PRINT CHR$(225)TAB(38)CHR 
$(224) 

[3138] 

2280 MOVE 20,180:DRAW 620,180,3:DRAW 620,1 
55:DRAW 20,155:DRAW 20,180 

[3524] 


2290 MOVE 166,317:DRAW 166,212 [2081] 

2300 MOVE 4,217:DRAW 634,217 [1609] 

2310 MOVE 280,30:TAG:PRINT"Menü";:TAGOFF [1964] 

2320 MOVE 268,37:DRAW 356,37,1:DRAW 356,13 [2253] 

:DRAW 268,13:DRAW 268,37 

2330 LOCATE 2,24:PRINT"Versuch:":LOCATE 32 [3473] 

,24:PRINT"Nr." 

2340 IF an<3 THEN PRINT#3,TAB(6)text3$:GOT [3072] 

O 2760 

2350 ERASE kontrolle:DIM kontrolle(j) [1531] 

2360 FOR anzahl=l TO an [371] 

2370 GOSUB 5230:' Daten auswaehlen [1386] 

2380 LOCATE 32,24:PRINT"Nr.";anzahl [2429] 

2390 CLS#1:CLS#2 [576] 

2400 PRINT#2:PRINT#2,erg$(zahl1) [564] 

2410 auswahlS(1)=dtm$(zahl1) [870] 

2420 auswahlS(2)=dtm$(zahl2) [1391] 

2430 auswahlS(3)=dtm$(zahl3) [1520] 

2440 LOCATE#l,5,2:PRINT#1,CHR$(175)CHR$(17 [3710] 

6)CHR$(177) 

2450 LOCATE#1,5,3:PRINT#1,CHR$(178)CHR$(17 [1935] 

9)CHR$(180) 

2460 LOCATE#!,5,4:PRINT#1,CHR$(181)CHR$(18 [3012] 
2) 

2470 le=LEN(auswahlS(1)+auswahl$(2)+auswah [2287] 
1$(3))+4 

2480 LOCATE 1,17:PRINT SPACES(240);:abstd= [3037] 
320-le*16/2:TAG:MOVE abstd,95 

2490 FOR b=l TO 3 [1127] 

2500 PRINT auswahlS(Wechsel(b));:GOSUB 284 [2503] 
0:xp(b)=le 

2510 NEXT b [378] 

2520 altzahl=wechsel(1):h=63:v=2 [741] 

2530 PEN 1 [549] 

2540 GOSUB 2680:PRINT CHR$(240);:' Pfeil s [3085] 
etzen 

2550 '+++ Steuerung +++ [<310] 

2560 a$=INKEY$:IF a$= H " THEN 2560 [1504] 

2570 a=ASC(a$) [1036] 

2580 IF a=224 THEN 2710 [1007] 

2590 IF a=241 THEN 2800 [907] 

2600 CLS#4 [386] 

2610 IF a=242 THEN v=v-l:IF V<1 THEN v=3 [1990] 

2620 IF a=243 THEN V=V+1:IF v>3 THEN V=1 [2101] 

2630 ON V GOSUB 2670,2680,2690 [1746] 

2640 PRINT CHR$(240); [1053] 

2650 GOTO 2560 [315] 

2660 '+++ Pfeile setzen +++ [2064] 

2670 MOVE abstd+xp(1)/2-8,h:RETURN [2352] 

2680 MOVE abstd+xp(1)+24+xp(2)/2,h:RETURN [2081] 
2690 MOVE abstd+xp(1)+56+xp(2)+xp(3)/2,h:R [1984] 
ETURN 

2700 '+++ Eingabe pruefen +++ [1533] 

2710 ver=ver+l:TAGOFF:LOCATE 2,24:PRINT"Ve [11368] 
rsuch:";ver:TAG:IF auswahlS(Wechsel(v))=dt 
mS(zahll) THEN CLS#1:PRINT#1:PRINT#1,dtm$( 
zahll) ELSE SOUND 2,2200,50,15:GOTO 2560 
2720 GOSUB 5520:’ Balken zeichnen [1666] 

2730 GOSUB 5440:' Melodie [1626] 

2740 warte=l:AFTER wa,l GOSUB 5580:WHILE w [3726] 
arte=l:WEND 

2750 TAGOFF:NEXT anzahl [2498] 

2760 CLS#4:TAG::MOVE 312,63:PRINT CHR$(241 [1617] 

); 

2770 CALL &BB18 [389] 

2780 TAGOFF:GOTO 540 [1223] 

2790 '+++ zurueck zum Menue +++ [1615] 

2800 CLS#4:MOVE 312,63:PRINT CHR$(241); [2417] 

2810 a$=INKEYS:IF a$="" THEN 2810 [1431] 

2820 IF a$=CHR$(224) THEN 2780 ELSE 2570 [1760] 

2830 '+++ Rechteck zeichnen +++ [2233] 

2840 le=LEN(auswahl$(Wechsel(b)))*16 [1662] 

2850 MOVER 0,8:DRAWR -le-4,0:DRAWR 0,-28:D [3800] 
RAWR le+4,0:DRAWR 0,28:MOVER 32,-8 
2860 RETURN [555] 

2870 '### Jahreszahlen abfragen ### [1508] 

2880 ver=0:schritt=0:zufall=10:xpo=80:ypo= [1789] 
195 

2890 GOSUB 5150 [853] 

2900 WINDOW#l,1,10,7,9 [1123] 

2910 WINDOW#2,12,40,7,9 [1392] 

2920 WINDOW#3,11,39,16,24 [1139] 

2930 PAPER#1,2:PAPER#2,2:PAPER#3,0 [2336] 

2940 PEN#1,0:PEN#2,0:PEN#3,1 [2201] 

2950 CLS#1:CLS#2:CLS#3 [1230] 

2960 MOVE 166,317:DRAW 166,245,3 [2257] 

2970 MOVE 4,248:DRAW 634,248 [1582] 

2980 PEN 3:FOR a=18 TO 21:LOCATE 5,a:PRINT [4613] 
MID$("Menü",a-17,1):NEXT a:PEN 1 
2990 MOVE 55,52:DRAW 55,136,1:DRAW 88,136: [2951] 
DRAW 88,52:DRAW 55,52 
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Programm 


3000 MOVE 152,165:DRAW 630,165,3:DRAW 630, 

(3617) 


3720 LOCATE#1,1,h:PRINT#1," " 

[1708] 

8:DRAW 152,8:DRAW 152,165 



3730 IF a=224 THEN CLS#0:ON h GOTO 540,380 

[2923] 

3010 LOCATE 3,13:PRINT CHR$(225)TAB(38)CHR 

[2501 ] 


0,3880,3940,4020,4120 


$(224) 



3740 LOCATE#l,3,h:PRINT#1,wähl3$(h) 

[1746] 

3020 MOVE 20,215:DRAW 620,215:DRAW 620,185 

[3104] 


3750 IF a=240 THEN h=h-l:IF h<l THEN h=6 

[2622] 

:DRAW 20,185:DRAW 20,215 



3760 IF a=241 THEN h=h+l:IF h>6 THEN h=l 

[2181] 

3030 LOCATE 1,16:PRINT"Vs:":LOCATE 1,24:PR 

[1732] 


3770 LOCATE#l,1,h:PRINT#1,CHR$(243)" "CHR$ 

[3793] 

INT"Nr." 



(24)wähl3$(h)CHR${24) 


3040 IF an<3 THEN LOCATE#3,2,5:PRINT#3,tex 

[3152] 


3780 GOTO 3700 

[501] 

t3$:GOTO 3500 



3790 '+++ Daten Laden +++ 

[1247] 

3050 MOVE 152,112:DRAW 630,112 

[1083] 


3800 GOSUB 4050 

[1015] 

3060 MOVE 152,64:DRAW 630,64 

[14341 


3810 ERASE dtm$,erg$ 

[517] 

3070 ERASE kontrolle:DIM kontrolle(j) 

[1531] 


3820 DIM dtm$(dm),erg$(dm) 

[990] 

3080 FOR anzahl=l TO an 

[371] 


3830 OPENIN name$ 

[1050] 

3090 GOSUB 5230:' Daten auswaehlen 

[1386] 


3840 INPUT#9,an 

[841] 

3100 LOCATE 1,24:PRINT"Nr.";anzahl 

[1172] 


3850 FOR i=l TO an:LINE INPUT#9,dtm$(i):LI 

[2857] 

3110 CLS#1:CLS#2 

[576] 


NE INPUT#9,erg$(i):NEXT 


i 3120 PRINT# 1 ,dtm$(zahll) ; 

[1273] 


3860 CLOSEIN : GOTO 3680 

[1043] 

3130 auswahlS(l)=erg$(zahll) 

[864] 


3870 '+++ Daten speichern +++ 

[736] 

3140 auswahlS ( 2)=erg$(zahl2) 

[1194] 


3880 GOSUB 4050 

[1015] 

3150 auswahlS ( 3)=erg$(zahl3 ) 

[850] 


3890 OPENOUT name$ 

[700] 

3160 LOCATE#2,12,1:PRINT#2,CHR$(175)CHR$(1 

[2653] 


3900 PRINT#9,an 

[1000] 

76)CHR$ ( 177 ) 



3910 FOR i=l TO an:PRINT#9,dtm$(i):PRINT#9 

[3611] 

3170 LOCATE#2,12,2:PRINT#2,CHR$(178 ) CHR$ ( 1 

[2543] 


,erg$ ( i ): NEXT 


79)CHR$ ( 180 ) 



3920 CLOSEOUT : GOTO 3680 

[1535] 

3180 LOCATE#2,12,3:PRINT#2,CHR$ ( 181 ) CHR$ ( 1 

[2853] 


3930 '+++ Merge +++ 

[596] 

82) 



3940 GOSUB 4050:alt=an 

[1003] 

3190 '.+++ Daten zeigen +++ 

[919] 


3950 OPENIN name$ 

[1050] 

3200 CLS#3:a=0 

[463] 


3960 INPUT#9,an 

[841] 

3210 FOR b=l TO 3 

[1127] 


3970 IF alt+an>dm-l THEN an=alt:PRINT:PRIN 

[6864] 

3220 LOCATE# 3 , 1 ,b+a : PRINT# 3 ,auswahlS ( wechs 

(2685) 


T:PRINT"Speicher zu klein !":GOTO 4000 


el(b) ) 



3980 FOR 1=1 TO an : LINE INPUT#9,dtm$ ( i+alt 

[2723] 

3230 a=a+2 

[724] 


):LINE INPUT#9,erg$(l+alt):NEXT 


' 3240 NEXT b 

[378] 


3990 an=an+alt 

[625] 

3250 MOVE 160,112:DRAW 622,112,3 

[1725] 


4000 CLOSEIN:GOTO 3680 

[1043] 

3260 MOVE 160,64:DRAW 622,64 

[803] 


4010 '+++ Cat +++ 

[599] 

3270 altzahl=wechsel(l):PEN 1 

[490] 


4020 CAT 

[96] 

3280 LOCATE 8,20:PRINT CHR$(243):h=20 

[1101] 


4030 GOTO 3680 

[664 ] 

3290 '+++ Steuerung +++ 

[910] 


4040 ’+++ Eingabe des Dateinamens +++ 

[1920] 

3300 a$=INKEY$:IF a$="" THEN 3300 

[1437] 


4050 PRINT:PRINT"Bitte Dateiname eingeben: 

[3214] 

3310 a=ASC(a$) 

[1036] 


II 


3320 IF a=224 THEN 3400 

[829] 


4060 PRINT:INPUT name$:PRINT 

[1080] 

3330 LOCATE 8,h:PRINT" " 

[715] 


4070 IF name$="" THEN GOTO 3680 

[1136] 

3340 IF a=242 THEN 3530 

[1490] 


4080 IF LEN(name$) >10 THEN 4050 

[1594] 

3350 IF a=240 THEN h=h-3:IF h<17 THEN h=23 

[3095] 


4090 name$=LOWER$(name$)+".His" 

[766] 

3360 IF a=241 THEN h=h+3:IF h>23 THEN h=17 

[1030) 


4100 RETURN 

[555] 

i 3370 LOCATE 8,h:PRINT CHR$(243) 

[1566] 


4110 '+++ Geschwindigkeit aendern +++ 

[2601] 

3380 GOTO 3300 

[453] 


4120 PRINT:PRINT"Bitte Geschwindigkeit wäh 

[5714] 

3390 '+++ Eingabe pruefen +++ 

[1533] 


len ( 1 / 2 )" 


3400 pruef=h-l6 

[749] 


4130 PRINT:INPUT a 

[417] 

3410 ver=ver+l:LOCATE 1,16:PRINT"Vs:";ver 

[2872] 


4140 IF a=0 THEN 3680 

[445] 

3420 IF pruef=4 THEN pruef=2 

[986] 


4150 sd=a-l 

[401] 

3430 IF pruef=7 THEN pruef=3 

[1058] 


4160 IF sd<0 OR sd>l THEN 4120 

[390] 

3440 IF auswahlS(Wechsel(pruef ) )=erg$(zahl 

[8160] 


4170 SPEED WRITE sd 

[1188] 

1) THEN CLS#2:PRINT#2,erg$(zahll) ELSE SOU 



4180 GOTO 3680 

[ 664 ] 

ND 2,2200,50,15:GOTO 330Ö 



4190 '### Lexikon ### 

[814] 

3450 GOSUB 5520:' Balken zeichnen 

[1666] 


4200 MODE 1 

[506] 

3460 GOSUB 5440:' Melodie 

[1626] 


4210 GOSUB 5180 

[879] 

3470 warte=l:AFTER wa,l GOSUB 5580:WHILE w 

[3726] 


4220 WINDOW#l,l,10,14,18 

[1281 } 

arte=l:WEND 



4230 WINDOW#2,12,40,14,18 

[1421] 

3480 LOCATE 8,h:PRINT" " 

[715] 


4240 PAPER#1,3:PAPER#2,3 

[2094] 

3490 NEXT anzahl 

[969 ] 


4250 PEN#1,1:PEN#2,1:PEN 2 

[1710] 

3500 LOCATE 8,20:PRINT CHR$(242) 

[1194] 


4260 MOVE 2,200:DRAW 636,200 

[1646] 

3510 CALL &BBi8:GOTO 540 

[1236] 


4270 MOVE 2,102:DRAW 636,102 

[1048] 

3520 '+++ zurueck zum Menue +++ 

[1615] 


4280 MOVE 167,98:DRAW 167,204 

[1048] 

3530 LOCATE 8,20:PRINT CHR$(242) 

[1194] 


4290 LOCATE 2,12:PRINT"Datum"SPC(6 ) "Ereign 

[4664] 

3540 a$=INKEY$ : IF a$="" THEN 3540 

[1453] 


is" 


3550 IF a$=CHR$ ( 224 ) THEN 540 ELSE LOCATE 

[2762] 


4300 CLS#1:CLS#2 

[576] 

8,20:PRINT" ":GÖTO 3310 



4310 MOVE 150,70:DRAW 490,70:DRAW 490,40:D 

[3021 ] 

3560 '### Load,Save,Merge,Cat ### 

[1396] 


RAW 150,40:DRÄW 150,70 


3570 MODE 1:GOSUB 5180 

[895] 


4320 LOCATE 2,8:PRINT"Datum : ";:PEN 1: PRI 

[2752] 

3580 h=l 

[419] 


NT CHR$ ( 143 ) 


3590 WINDOW#0,2,39,13,24 

[1020] 


4330 LOCATE 15,22:PEN 1:PRINT "COPY = Menü 

[3508] 

3600 WINDOW#l,5,12,5,10 

[1480] 


" :x=8 :eingabe$="" 


3610 PAPER#0,3:PAPER#1,2 

[2651] 


4340 '+++ Eingabe +++ 

[721] 

3620 CLS#0:CLS#1 

[761] 


4350 a$=INKEY$:IF a$="" THEN 4350 

[1498] 

3630 PEN#0,1:PEN#1,0 

[1166] 


4360 a=ASC(a$) 

[1036] 

3640 MOVE 60,236:DRAW 60,338,1:DRAW 194,33 

[3246] 


4370 IF a=224 THEN 540 

[1006] 

8:DRAW 194,236:DRAW 60,236 



4380 IF a=13 THEN 4520 

[1107] 

3650 MOVE 8,214:DRAW 630,214:DRAW 630,8:DR 

[3348] 


4390 IF a=127 THEN 4460 

[1309] 

AW 8,8:DRAW 8,214 



4400 IF LEN(eingabe$)>20 THEN 4350 

[1633] 

3660 MOVE 1,1:DRAW 1,398:DRAW 638,398:DRAW 

[2768] 


4410 X=X+1 

[853] 

638,1:DRAW 1,1 



4420 LOCATE X,8 

[701] 

! 3670 FOR a=l TO 6 : LOCATE#1,3,a : PRINTfl,wah 

[3447] 


4430 PRINT CHR$(a)CHR$(143) 

[1371] 

13$(a):NEXT 



4440 eingabe$=eingabe$+CHR$(a) 

[1074] 

i 3680 LOCATE#1,1,h : PRINT#1,CHR$ ( 243 )" "CHR$ 

[3793] 


4450 GOTO 4350 

[547] 

( 24 ) wähl3$(h)CHR$ ( 24 ) 



4460 IF LEN(eingabe$)=0 THEN 4350 

[1970] 

3690 '+++ Abfrage +++ 

[695] 


4470 LOCATE X, 8:PRINT CHR$(143)" " 

[1720] 

3700 a$=INKEY$ : IF a$="" THEN 3700 

[1484] 


4480 X=X-1 

[849] 

3710 a=ASC(a$ ) 

[1036] 


4490 eingabe$=LEFT$(eingabe$,x-8) 

[1978] 
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4500 GOTO 4350 

[547] 


4510 '+++ Ereignis suchen +++ 

[1351] 


4520 LOCATE 9,8:PRINT CHR$ ( 143)SPACE$ ( 22) ; 

: el=LEN ( eingabe$ ) :hilf $=" ":GOSUB 4650:LOCA 
TE 14,22:PRINT "Moment bitte!" 

[8022] 


4530 FOR i=l TO el 

[583] 


4540 hilfi$=MID$(eingabe$,i,l):IF hilfl$<> 
" " THEN hilf$=hilf$+hilf1$ 

[4122] 


4550 NEXT 

[350] 


4560 eingabe$=hilf $ 

[1508] 


4570 FOR such=l TO an 

[1125] 


4580 el=LEN(dtm$(such)):hilf$="" 

[1518] 


4590 FOR i=l TO el 

[583] 


4600 hilf1$=MID$(dtm$(such),i,1 ) :IF hilfl$ 
<>" " THEN hilf$=hilf$+hilf1$ 

[3801] 


4610 NEXT 

[350] 


4620 IF eingabe$=hilf $ THEN 4670 

[1300] 


4630 NEXT:LOCATE 12,22:PRINT"Nichts gefun 
den !":warte=l:AFTER wa,l GOSUB 5580 

[5072] 


4640 WHILE warte=l:WEND:GOSUB 4650:GOTO 43 
30 

4650 LOCATE 12,22:PRINT SPACE$(18) 

[3310] 


[1605] 


4660 RETURN 

[555] 


4670 GOSUB 4650 : CLS#1 : CLS#2 

[2604] 


4680 PRINT#1 : PRINT#2 

[788] 


4690 PRINT#1,dtm$(such) ;: PRINT#2,erg$(such 

4700 GOTO 4330 

[1853] 


[551] 


4710 '### Sortieren ### 

[807] 


4720 GOSUB 5150 

[853] 


4730 WIND0W#1,1,10,7,18 

[1246] 


4740 WINDOW#2,12,40,7,18 

[1528] 


4750 PAPER#1,2 : PEN#1,1 

[2040] 


4760 PAPER#2,2 :PEN#2,1 

[1707] 


4770 CLS#1 : CLS#2 

[576] 


4780 MOVE 4,105:DRAW 635,105,3:MOVE 168,30 
8 : DRAW 168,318 

[3015] 


4790 LOCATE 1,24:PEN 1:PRINT CHR$ ( 24 ) "COPY 
-Menü/C-sort/Z-zeig/L-lgm/H-halt/E-."CHR$ ( 
24); 

[3967] 


4800 MOVE 4,98 : DRAW 635,98,1 : DRAW 635,37:D 
RAW 4,37:DRAW 4,98 

[2896] 


4810 a$=INKEY$:IF a$="" THEN 4810 

[1542] 


4820 IF a$=CHR$(224 ) THEN 540 

[907 ] 


4830 IF LOWER$(a$)="z" THEN 4920 

[981] 


4840 IF LOWER$(a$)= H c" THEN 4860 

[2132] 


4850 GOTO 4810 

[448] 


4860 CLS#1 : CLS#2 : PRINT#2, " Bitte warten !" 

[2689] 


4870 EVERY 50,1 GOSUB 5020 

[909] 


4880 GOSUB 5670 

[917] 


4890 re=REMAIN ( 1) 

[906] 


4900 PRINT#2:PRINT#2:PRINT#2," fertig !!" 

[2479] 


4910 GOTO 4810 

[448] 


4920 CLS#1:CLS#2 

[576 ] 


4930 FOR i=l TO an 

[549] 


4940 GOSUB 5600 

[954 ] 


4950 a$=INKEY$ 

[ 278] 


4960 IF LOWER$(a$)="l" THEN IF ls=700 THEN 
ls=l ELSE ls=700 

[1867] 


4970 IF LOWER$(a$)="e" THEN 4810 

[1666] 


4980 IF LOWER$(a$)="h" THEN CALL &3B18 

[1097] 


4990 FOR w=0 TO ls:NEXT 

[1358] 


5000 NEXT 

[350] 


5010 GOTO 4810 

[448] 


5020 PRINT#2, " . ";: RETURN 

[863] 


5030 '### Ende ### 

[633] 


5040 MODE 1 

[506] 


5050 GOSUB 5180:PEN 2 

[1386] 


5060 MOVE 1,1:DRAW 1,398:DRAW 638,398:DRAW 
638,1:DRAW 1,1 

[2768] 


5070 LOCATE 5,10 : PRINT"COPY - Menü" 

[3724] 


5080 LOCATE 8,12:PRINT"L - Daten löschen" 

[2202] 


5090 LOCATE 8,14:PRINT"E - Programm verlas 
sen " 

[2848] 


5100 a$=INKEY$ : IF a$="" THEN 5100 

[1492] 


5110 IF LOWER$(a$)="e" THEN MODE 1 : PEN 1:P 
RINT : END 

[2541 ] 


5120 IF LOWER$(a$)="l" THEN LOCATE 5,20:1 
NPUT"Daten wirklich löschen J/N";f$:IF LO 
WER$ ( f $)="j" THEN RUN 

[4383] 


5130 GOTO 540 

[425] 


5140 '*** Menuewahl zeigen *** 

[1731] 


5150 MODE 1 

[506] 


5160 LOCATE 1,5:PEN 3:PRINT" Datum"SPC(6)" 
Ereignisse":PEN 1 

[2973] 


5170 MOVE 4,312:DRAW 634,312 

5180 WINDOW#7,3,38,2,2:PAPER#7,2 : CLS#7 

[864] 


[2044] 


5190 MOVE 26,365:DRAW 26,386,1 : DRAW 612,38 
6:DRAW 612,365:DRAW 26,365 

[2501] 


5200 PEN#7,0 : PRINT#7, " "; wähll$(p-12);:PEN 
#7,1 

[3130] 


5210 RETURN 

5220 '*** Daten auswaehlen *** 

5230 IF an<10 THEN zufall=an 
5240 IF an>10 AND an-anzahl=an MOD 10 THEN 
zufall=zufall+an MOD 10 
5250 zahll=INT(RND*zufall)+schritt+l 
5260 FOR i=l TO anzahl-schritt 
5270 IF kontrolle(i)=zahll THEN 5250 
5280 NEXT i 

5290 kontrolle(anzahl-schritt)=zahll 
5300 IF anzahl MOD 10=0 AND zufall=10 THEN 
schritt=schritt+l 0 
5310 zahl2=INT(RND*zufall)+schritt+l 
5320 IF zahl2=zahll THEN 5310 
5330 zahl3=INT(RND*zufall)+schritt+l 
5340 IF zahl3=zahl2 OR zahl3=zahll THEN 53 
30 

5350 '*** Wechsel der Daten *** 

5360 Wechsel(1)=INT(RND*3)+l 

5370 IF Wechsel(l)=altzahl THEN 5360 

5380 Wechsel(2)=INT(RND*3)+1 

5390 IF Wechsel(2)=wechsel(l) THEN 5380 

5400 wechsel(3)=INT(RND*3)+l 

5410 IF Wechsel(3)=wechsel(2) OR Wechsel(3 

)=wechsel(l) THEN 5400 

5420 RETURN 

5430 '*** Melodie *** 

5440 RESTORE 5500 
5450 FOR ml=l TO 12 
5460 READ ton 
5470 SOUND 2,ton,10,14 
5480 NEXT 
5490 RETURN 

5500 DATA 358,301,358,426,301,358,426,301, 

338,301,253,225 

5510 '*** Balken zeichnen *** 

5520 FOR g=l TO 480\an STEP 2 
5530 MOVE xpo+g,ypo:DRAWR 0,10,1 
5540 NEXT 

5550 xpo=xpo+480/an 
5560 RETURN 

5570 '*** Warten beenden *** 

5580 warte=0:RETURN 
5590 •*** Scroll *** 

5600 PRINT#l,dtm$(i) 

5610 abstd=LEN(erg$(i))\29+l 

5620 FOR scroll=l TO abstd:PRINT#1:NEXT 

5630 PRINT#2,erg$(i):PRINT#2 

5640 datzeil=INT(LEN(dtm$(i))/10) 

5650 FOR scroll=l TO datzeil:PRINT#2:NEXT 

5660 RETURN 

5670 'Sortieren 

5680 FOR i=l TO an:d$=dtm$(i) 

5690 day(i)=0:monat(i)=0 
5700 dlang=LEN(d$) 

5710 ppos=INSTR(d$IF pposoO THEN pp 
os2 = INSTR(ppos+1 ,d$ ELSE ppos2=0 

5720 IF ppos=0 AND ppos2=0 THEN jahr(i)=VA 
L(d$):IF INSTR(d$,"v")<>0 THEN jahr(i)=jah 
r(i)* -1:GOTO 5760 

5730 IF ppos2<>0 THEN jahr(i)=VAL(RIGHT$(d 
$,dlang-ppos2)):day(i)=VAL(LEFT$(d$,ppos)) 

:IF INSTR(d$,"v") THEN jahr(i)=jahr(i)* -1 
5740 IF ppos2=0 THEN jahr(i)=VAL(RIGHTS(d$ 
,dlang-ppos)):IF INSTR(d$,"v") THEN jahr(i 
)=jahr(i)* -1 

5750 IF ppos2=0 THEN monat(i)=VAL(LEFT$(d$ 

/ppos)):ELSE monat(i)=VAL(MID$(d$,ppos+l,p 
pos 2 -ppos-i)) 

5760 NEXT 

5770 FOR i=l TO an 
5780 ind=l 

5790 FOR such=l TO an 

5800 IF jahr(such)>jahr(ind) THEN ind=such 
:GOTO 5850 

5810 IF jahr(such)<jahr(ind) THEN 5850 
5820 IF monat(such)>monat(ind) THEN ind=su 
ch:GOTO 5850 

5830 IF monat(such)<monat(ind) THEN 5850 
5840 IF day(such)>day(ind) THEN ind=such 
5850 NEXT 

5860 ind(i)=ind:jahr(ind)=-lE+ 38:monat(ind 

)= 0 :day(ind )=0 

5870 NEXT 

5880 FOR i=l TO an 

5890 nd$(an+i-i)=dtm$(ind(i)):ne$(an+l-i)= 
erg$(ind(i)) 

5900 NEXT 

5910 FOR i=l TO an 

5920 dtm$(i)=nd$(i):erg$(i)=ne$(i) 

5930 NEXT 
5940 RETURN 
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Programm 


Think 


Bombenjagd mit Grips 


Bevor eine versteckte Bombe entschärft werden kann, muß man sie erst 



einmal finden. In unserem Fall gehört eine Menge Scharfsinn und Logik 
dazu, damit es bei der Jagd nach den Bomben nicht zu bösen Überraschungen 
kommt. Machen Sie mit bei “Think”, einem alle einfachen wie eindrucks¬ 
vollen Denkspiel für alle CPCs. 


Ziel des Spiels “Think” ist, in einem 
Spielfeld, das aus 36, 64, 100 oder 144 
Feldern besteht, eine festgelegte An¬ 
zahl von Bomben zu finden und die ent¬ 
sprechenden Felder zu markieren. Die 
Anzahl der Felder und die Anzahl der 
Bomben hängen dabei vom gewählten 
Spiel level ab. Dabei gilt: 


Level Felder Bomben 

Beginner 36 4 

Amateur 64 9 

Expert 100 20 

Professional 144 48 


Um die Bomben zu finden, kann man 
mit einem Cursor jedes Feld auf dem 
Spielfeld anspringen. Ein so gewähltes 
Feld kann auf zwei verschiedene Wei¬ 
sen behandelt werden. Ist man der Mei¬ 
nung. auf dem Feld befindet sich eine 
Bombe, sperrt man es mit einem Toten¬ 
kopf, indem man die Leertaste drückt. 
Andernfalls deckt man das Feld durch 
<COPY> auf. Findet sich unter einem 
mit <C’OPY> aufgedeckten Feld eine 
Bombe, ist das Spiel unweigerlich zu 
Ende, ln diesem Fall werden alle Felder 


offengelegt, und man kann die Positio¬ 
nen der Bomben erkennen. 

Ist das aufgedeckte Feld “sauber”, er¬ 
scheint in seiner linken oberen Ecke ei¬ 
ne Ziffer, die die Anzahl der direkt an 
das Feld angrenzenden Bomben zeigt. 
Diese Zahl bezieht sich auf alle Bom¬ 
ben rund um das gewählte Feld. Ist kei¬ 
ne Zahl zu sehen, so sind alle Felder um 
das gewählte Feld herum bombenfrei, 
auch die diagonalen Nachbarn. 

Ein bereits aufgedecktes Feld kann lo¬ 
gischerweise nicht mehr markiert wer¬ 
den. Die Sperrung mittels Totenkopf 
läßt sich jedoch durch nochmaliges Driik- 
ken der Leertaste rückgängig machen. 

Gesteuert wird per Menü 

Während des Spiels läuft eine Uhr 
mit, die im Kontrollkasten auf der 
rechten Bildschirmseite unter dem 
Eintrag “time” eingeblendet ist. Hat 
man alle Bomben gefunden und als 
Freigabesignal <RETURN> ge¬ 
drückt. stoppt die Zeit. Die schnell¬ 
sten Bombensucher können sich in 
der High-Score-Tabelle verewigen. 


Über ein kleines Menü wird das ge¬ 
samte Spielgeschehen kontrolliert. 
Die vier Menüpunkte haben folgende 
Bedeutung: 


New Game-startet ein neues Spiel 
Change Level - wechselt den Schwie¬ 
rigkeitsgrad 

Hi-Scores - eröffnet einen Blick auf die 
besten Plazierungen 

End Game - bringt den Bombensucher 
auf den Boden des BASIC zurück 

Die einzelnen Menüpunkte werden 
mit den Cursortasten angewählt und 
mit <COPY> aktiviert. Die folgende 
Tabelle zeigt alle Tasten und de¬ 
ren Funktion innerhalb des Spiels 
“Think”. 


Taste 

Cursortasten 

<C0PY> 


<SPACE> 


<RETURN> 


<DEL> 


Bedeutung 

Steuerung des Spielcursors 
und der Pfeile im Hauptmenü 
dient zum Aufdecken eines 
Feldes undzum Anklicken 
einer Option im Hauptmenü 
kennzeichnetein Feldmitei- 
nem Totenkopf oder löscht die 
Totenkopfmarkierung 
beendet das Spiel, wenn man 
meint, alle Bomben markiert 
zu haben. Es wird die Kon- 
trollfunktion aktiviert, die die 
markierten Bomben mit den 
tatsächlich gesetzten ver¬ 
gleicht. Die Zeit wird ge¬ 
stoppt, und man kann sich ge- 
gebenenfalls in die High- 
Score-Liste eintragen 
dient zum Abbrechen des 
Spiels. Es werden alle Bomben 
aufgedeckt, und man gelangt 
zurück ins Hauptmenü 
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"Tliink" ist eine Herausforderung an das Logikverständnis. Gefährliche 
Bomben müssen geortet w erden. Verschiedene Leveis vom Beginner ... 
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... bis zum Professional bringen eine spannende Langzeitunterhaltung 
mit sieh 
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Zwei Listings sorgen für 
Bombenunterhaltung 

"Think” bestehl aus zwei Listings. Das 
eine heißt THINK.PRG, das andere 
SCORE.BAS. Letzteres ist ein kleines 
BASIC-Programm, das vor dem ersten 
Spiel gestartet werden muß. SCORE. BAS 
richtet eine ASCII-Datei namens 
THINK.SCO auf der Diskette ein. die 
die besten Ergebnisse für die Ewigkeit 
festhält. Diese Datei wird vom Haupt¬ 
programm gebraucht. THINK.PRO ist 
dank des leicht verständlichen BAS1C- 
Codes in vielen Bereichen zu modifi¬ 
zieren. So lassen sich beispielsweise 
die Farben in der Zeile 800 den indivi¬ 
duellen Wünschen anpassen. Wer Zeit 
beim Abtippen sparen will, kann die 
REM-Zeilen weglassen, sie werden 
von GOTO- oder GOSUB-Befehlen 
nicht direkt angesprungen. 

Im Falle einer 
Fehlermeldung 

Wer ohne Diskettenlaufwerk auskom- 
men muß, wird zu Programmbeginn 
vom Rechner eine Fehlermeldung er¬ 
halten.'"Think” erwartet die High- 
Score-Tabelle von der Diskette. In die¬ 
sem Fall reicht es, den GOSUB-Befehl 
in Zeile 790 zu streichen. Das Spiel 
läuft dann /war ohne High-Score-Ta- 
belle,aberes läuft. 

Wenn Sie vor dem ersten Start von 
“Think” das Zusatzprogramm SCO¬ 
RE.BAS nicht ausführen lassen, be¬ 
schwert sich der Rechner, daß er die 


Eine Ziffer in einem 
h ehl bezieht sieh auf 
alle angrenzenden 
E eitler ein st lili eßli eh 
der diagonalen Nach¬ 
barn. Besitzt ein Feld 
heine Ziffer, so sind 
alle angrenzenden 
Felder bombenfrei 



High-Score-Tabelle nicht finden kann. 
Abhilfe: Starten von SCORE.BAS. 

Im "Professional-Level” muß der gute 
alte CPC sehr viele Berechnungen 
durchführen. Dadurch wird unter ande¬ 
rem die Zeit des Spielfeldaufbaus ver¬ 
längert. Es tut sich einige Zeit nichts auf 
dem Bildschirm. Etwas Geduld ist an¬ 
gesagt. nicht das Drücken der <ESC>- 
Taste. Auch die Berechnungen der 
Bombenanzahl benötigen in den hohen 
Leveis etwas Zeit, auch hier gilt: Ge¬ 
duld ist besser als Abbruch. 

Langzeit-Logik- 

Unferhaltung 

In der Regel läßt sich "Think” ohne 
großes Risiko lösen. Verschiedene 
Kniffe und Strategien entblößen immer 
mehr vom Spielfeld. Nur in seltenen 


Fällen, wie beim Spielstart, muß man 
blind ins Blaue zielen mit dem Risiko, 
eine Bombe zu treffen. Um den Geist 
von “Think” besser einfangen zu kön¬ 
nen. geben wir einige kleine Tips: Fel¬ 
der ohne Ziffern sind die beliebtesten 
Felder. Um sie herum können alle an¬ 
grenzenden Felder gefahrlos geöffnet 
werden. Liegen um ein Feld mit einer I 
bereits sieben aufgedeckte Felder, muß 
im achten eine Bombe versteckt sein. 
Die Umgebungen aller “F’-Felder. die 
an ein Bombenfeld angrenzen, können 
gefahrlos enttarnt werden. 

Kleines “Who's Who?” 
der Variablen 

Der Übersicht halber haben wir zum 
Abschluß noch einmal alle Variablen 
und ihre Bedeutung aufgelislet. Das 
erleichtert ein Verändern des Pro¬ 
gramms: 



Warum nicht mal BASIC? 


IvoMieskes über sein Programm “Think” 


Der Grund, warum ich dieses Spiel geschrieben ha¬ 
be. ist nicht nur die Spielidee, die mir gefallen hat. 
sondern vielmehr die Tatsache, daß immer weniger 
Spiele in reinem BASIC-Code verfaßt werden. 

Oft hört man. BASIC sei viel zu langsam. Doch 
diesen “Schönheitsfehler” kann man nicht selten 
durch geschickte Programmierung umgehen. 
Sieht man sich das Programm “Think” an, so fallen 
zum Beispiel die auf den ersten Blick umständlich programmierten Symbol¬ 
definitionen oder die vielen PRINT- und LOCATE-Anweisungen auf. Natür¬ 
lich könnte man alle Daten schön sauber in DATA-Zeilen schreiben, dies w ür¬ 


de aber die Ablaufgeschwindigkeit vervielfachen. Hier sieht man, daß die 
konventionellen Programmiermethoden die “sauberen" in puncto Geschwin¬ 
digkeit bei weitem übertreffen können. 

Dieses Programm ist absichtlich auf Schnelligkeit getrimmt und zeigt damit, 
daß auch BASIC "pur” eine durchaus taugliche Programmiersprache sein kann. 


a,b,d,l,m,q,s,z Zählervariablen 

low, high, hi legen Grenzwerte in einem 

DIMensionierten Feld fest 
cl.mi.sec.ti Zeitvariablen 

t$.t Tastaturabfragen 

name$ High-Score-Variablen 

1$ Level-Variable 

bm Anzahl der zu suchenden 

Bomben im Spiel 

xm, ym doppelte Breite und Höhe des 

Spielfelds 

x,y aktuelle Cursorposition 

kx,ky Totenkopfkoordinaten 

bx, by Bombenkoordinaten 

d(x,y) Feldvariable (sie istO, wenn 

das Feld noch nicht aufge¬ 
deckt wurde und 1 im anderen 
Fall) 

Übrigens: Es soll ja Vorkommen, daß 
der eine oder andere unserer Leser auch 


10/11 '92 CPC 43 








imn 




in der Welt der IBM-kompatiblen PCs 
heimisch ist. Wer unter den PC-Ver¬ 
trauten dann auch noch etwas für die 
Mammut-Benutzeroberfläche M i cro- 
soft Windows übrig hat, kennt viel¬ 
leicht “Minesweepef’. Dieses grafi¬ 
sche Spielprogramm ist im Lieferum¬ 


fang von Windows 3.1 enthalten und er¬ 
freut sich bei vielen "Windowianern” 
großer Beliebtheit denn auch mit teu¬ 
ren Büro-Rechnerklöt/en mag man ja 
nicht immer nur ernsthafte Dinge trei¬ 
ben. Dem “Minesweeper”-Kundigen 
dürfte eine ungemein starke Ähnlich¬ 


keit mit unserem CPC-“Think” auffal¬ 
len - will sagen: Wer sich zur fröhli¬ 
chen Bombensuche aufmacht, braucht 
dazu nicht unbedingt immer die teuer¬ 
ste Computer- Umgebung!... 

(Ivo Mieskes/sz) 


THINK.BAS ' Hauptprogramm 
CPC 664/6128(plus) 

(c) 1992 Ivo Mieskes 

& CPC International 

- Zeichensatz und Symbole definier 


100 
110 
120 
130 
140 
150 
en 

160 ' 

170 SYMBOL AFTER 135 

180 SYMBOL 135,0,0,0,140,82,94,80,76:SYMBO 
L 136,0,0,0,115,74,74,74,74 
190 SYMBOL 137,0,0,29,36,165,157,5,57:SYMB 
OL 138,0,224,144,147,228,151,148,227 
200 SYMBOL 139,0,240,128,135,228,132,132,2 
44:SYMBOL 140,0,4,4,28,164,164,164,156 
210 SYMBOL 141,0,28,34,32,38,34,34,28:SYMB 
OL 142,0,0,0,115,146,146,146,122 
220 SYMBOL 143,0,0,0,70,169,175,168,166:SY 
MBOL 144,0,96,80,86,100,68,68,68 
230 SYMBOL 145,0,1,2,98,150,146,146,98:SYM 
i BOL 146,0,0,0,99,148,242,129,102 
240 SYMBOL 147,0,4,0,52,69,37,21,100:SYMBO 
L 148,0,0,0,206,41,41,41,201 
250 SYMBOL 149,0,1,1,57,73,73,73,61:SYMBOL 
150,0,112,64,69,101,66,69,117 
260 SYMBOL 151,0,0,0,99,84,103,68,67:SYMBO 
L 152,0,2,2,55,162,162,34,34 
270 SYMBOL 153,0,48,72,75,122,74,74,74:SYM 
BOL 154,0,0,0,71,169,169,169,167 
280 SYMBOL 155,0,32,32,102,41,47,40,166:SY 
MBOL 156,0,0,0,75,74,74,74,50 
290 SYMBOL 157,0,72,74,72,122,74,74,74:SYM 
BOL 158,0,14,16,16,204,2,2,28 
300 SYMBOL 159,0,0,0,51,68,68,68,51:SYMBOL 
160,0,0,0,51,164,167,164,35 
310 SYMBOL 161,0,0,0,24,160,144,8,48:SYMBO 
L 162,0,58,66,67,66,66,66,58 
320 SYMBOL 163,0,0,0,142,82,82,82,79:SYMBO 
L 165,0,0,1,114,74,73,72,75 
330 SYMBOL 166,0,0,128,152,164,188,160,24: 
SYMBOL 167,0,16,16,16,16,16,16,30 
340 SYMBOL 168,0,0,0,101,149,245,133,98:SY 
MBOL 169,0,2,2,50,74,122,66,51 
350 SYMBOL 170,0,68,100,84,85,85,77,68:SYM 
BOL 171,0,0,0,145,81,213,10,138 
360 SYMBOL 172,0,14,17,16,19,17,17,14:SYMB 
OL 173,0,0,0,57,73,73,73,61 
370 SYMBOL 174,0,0,0,163,84,87,84,83:SYMBO 
L 175,0,0,0,0,128,128,0,0 

380 SYMBOL 176,0,117,69,101,69,69,69,0:SYM 

BOL 177,0,209,17,145,17,17,221,0 

390 SYMBOL 178,0,198,41,36,34,41,198,0:SYM 

BOL 179,0,113,74,114,74,74,113,0 

400 SYMBOL 180,0,145,91,85,81,81,145,0:SYM 

BOL 181,0,113,74,113,72,74,113,0 

410 SYMBOL 182,0,128,64,0,128,64,128,0:SYM 

BOL 183,0,75,74,74,123,74,75,0 

420 SYMBOL 184,0,153,37,37,61,37,165,0:SYM 

BOL 185,0,142,80,72,68,66,156,0 

430 SYMBOL 188,0,142,136,136,140,136,238,0 

:SYMBOL 189,0,238,132,132,196,132,132,0 

440 SYMBOL 190,0,125,17,17,17,17,17,0:SYMB 

OL 191,0,69,109,85,69,69,69,0 

450 SYMBOL 192,0,224,0,0,192,0,224,0:SYMBO 

L 193,0,128,128,202,170,198,2,12 

460 SYMBOL 194,0,32,32,42,42,42,36,0:SYMBO 

L 195,0,2,3,66,162,162,66,0 

470 SYMBOL 196,0,32,105,162,43,42,41,0:SYM 

BOL 197,0,2,26,162,147,10,178 

480 SYMBOL 198,0,0,145,170,57,160,147:SYMB 

OL 199,0,0,128,0,0,128,0 

490 SYMBOL 200,0,0,15,31,31,15,0,0:SYMBOL 

201,0,0,240,248,248,240,0,0 

500 SYMBOL 202,0,0,255,255,255,255,60,60:S 

YMBOL 203,60,60,60,60,60,60,60,60 

510 SYMBOL 204,60,60,60,60,60,24,0,0:SYMBO 

L 205,60,60,63,63,63,63,60,60 


[1196] 

[1532] 

[1279] 

[2118] 

[117] 

[2399] 

[117] 

[1457] 

[4257] 

[3748] 

[4827] 

[3383] 

[4750] 

[4346] 

[4035] 

[3963] 

[3866] 

[3616] 

[3996] 

[2789] 

[3173] 

[3921] 

[4136] 

[4454] 

[3990] 

[3387] 

[3337] 

[3729] 

[3436] 

[4193] 

[4738] 

[3700] 

[4685] 

[3804] 

[3589] 

[3743] 

[3273] 

[4138] 

[5040] 

[3668] 

[4420] 

[4880] 


520 SYMBOL 206,60,60,252,252,252,252,60,60 
:SYMBOL 207,0,0,24,60,60,60,60,60 
530 SYMBOL 208,0,0,24,60,60,62,62,62:SYMBO 
L 209,63,63,63,61,61,61,60,60 
540 SYMBOL 210,60,60,188,188,188,252,252,2 
52:SYMBOL 211,124,124,124,60,60,24,0,0 
550 SYMBOL 212,0,0,12,30,30,60,60,120:SYMB 
OL 213,120,240,240,224,224,240,240,120 
560 SYMBOL 214,120,60,60,30,30,12,0,0:SYMB 
OL 215,0,0,15,31,31,15,1,1 

570 SYMBOL 216,0,0,252,254,254,252,224,224 
:SYMBOL 217,1,1,1,1,1,1,1,1 
580 SYMBOL 218,224,224,224,224,224,224,224 
,224:SYMBOL 219,1,1,1,1,1,0,0,0 
590 SYMBOL 220,224,224,224,224,224,192,0,0 
:SYMBOL 221,0,0,230,148,148,228,132,128 
600 SYMBOL 222,0,0,99,148,242,129,102,0:SY 
MBOL 223,0,0,51,74,122,66,50,0 
610 SYMBOL 224,16,56,147,84,82,81,86,0:SYM 
BOL 225,240,136,136,243,138,138,138,242 
620 SYMBOL 226,0,1,0,57,73,73,73,61:SYMBOL 
227,0,0,0,113,74,73,72,75 
630 SYMBOL 228,0,0,0,153,36,36,164,24:SYMB 
OL 229,0,80,144,184,144,144,144,144 
640 SYMBOL 230,0,0,0,192,128,128,128,128:S 
YMBOL 231,255,255,255,251,243,251,251,241 
650 SYMBOL 232,255,255,255,249,246,253,251 
,240-.SYMBOL 233,255,255,255,241,254,249,25 
4,241 

660 SYMBOL 234,255,255,255,246,246,240,254 
,254:SYMBOL 235,255,255,255,240,247,241,25 
4,241 

670 SYMBOL 236,255,255,255,249,247,241,246 
,249:SYMBOL 237,255,255,255,240,254,253,25 
1,251 

680 SYMBOL 238,255,255,255,249,246,249,246 
,249-.SYMBOL 2 39,0,127,64,64,64,64,64,64 
690 SYMBOL 240,0,254,2,2,2,2,2,2:SYMBOL 24 
1,64,64,64,64,64,64,127,0 

700 SYMBOL 242,2,2,2,2,2,2,254,0:SYMBOL 24 
3,0,127,64,64,64,67,71,79 

710 SYMBOL 244,0,254,2,26,34,194,226,242:S 

YMBOL 245,79,79,79,70,67,64,127,0 

720 SYMBOL 246,242,210,178,98,194,2,254,0: 

SYMBOL 247,0,96,231,248,56,18,22,16 

730 SYMBOL 248,0,6,231,31,28,40,104,8:SYMB 

OL 249,16,8,8,27,124,115,48,0 

740 SYMBOL 250,136,144,16,216,62,206,12,0: 

SYMBOL 251,255,255,255,255,255,255,255,255 

750 SYMBOL 252,0,187,170,187,136,187,0,0 : S 
YMBOL 253,0,184,136,184,160,184,0,0 
760 ' 

770 ' - Menue aufbauen 

780 ' 

790 GOSUB 2430:POKE 30009,l:POKE 30010,12: 

ENV 1,15,-1,10:ENV 2,15,-1,2 

800 MODE 1:BORDER 0:INK 0,0:INK 1,14:INK 2 

,25:INK 3,17:WINDOW#2,25,38,1,24:WINDOW#3, 

26,37,20,23 

810 WINDOW#2,25,38,1,24:WINDOW#3,26,37,20, 
23 

820 PEN 3:PEN#1,3:PEN#2,0:PEN#3,0:PAPER#1, 
0:PAPER#2,1:PAPER#3,1:CLS#2:CLS#3 
830 LOCATE#2,4,2:PRINT#2,CHR$(225);CHR$(22 
6);CHR$(227);CHR$(228);CHR$(229):LOCATE#2, 
7,3:PRINT#2,CHR$(221);CHR$(222);CHR$(223); 
CHR$(224) 

840 LOCATE#2,3,4:PRINT#2,CHR$(215);CHR$(21 
6);CHR$(207);CHR$(207);CHR$(207);CHR$(208) 
;CHR$(207);CHR$(207);CHR$(212):LOCATE#2,3, 
5:PRINT#2,CHR$(217);CHR$(218);CHR$(205) ;CH 
R$(206);CHR$(203);CHRS(209);CHR$(210);CHR$ 
(205);CHR$(213) 

850 LOCATE#2,3,6:PRINT#2,CHR$(219);CHR$(22 
0); CHRS (204); CHR$ (204)," CHR$ ( 204); CHR$ ( 204 ) 
;CHR$(211);CHR$(204);CHR$(214):LOCATE#2,3, 


[3999] 

[3266] 

[4134] 

[3912] 

[4869] 

[3298] 

[4788] 

[4922] 

[4469] 

[4451] 

[5073] 

[4772] 

[2722] 

[3938] 

[4813] 

[4762] 

[4837] 

[3662] 

[4156] 

[3464] 

[2567] 

[4012] 

[4640] 

[5117] 

[117] 

[1540] 

[117] 

[5208] 

[6296] 

[2632] 

[4673] 

[7048] 

[13072] 


[10327] 


44 CPC 10/11'92 









7:PRINT# 2,CHR$(164);CHR$(252);CHR$(253);CH 
R$ (193) 

860 LOCATE#2,8,7:PRINT#2,CHR$(194);CHR$(19 
5);CHR$(196);CHR$(197);CHR$(198);CHR$(199) 

:LOCATE#2,2,9:PRINT#2,CHRS(190);CHR$(191); 
CHR$(192) 

870 LOCATE#2,2,11:PRINT#2,CHR$(183);CHR$(1 
84);CHR$(185);CHRS(32);CHR$(188);CHR$(189) 
:LOCATE#2,2,16:PRINT#2,CHRS(176);CHR$(177) 
;CHR$(178) 

880 LOCATE#2,2,17:PRINT#2,CHRS(179);CHRS(1 
80);CHR$(181);CHRS(182):LOCATE#2,6,16:PRIN 
T#2,CHR$(58) 

890 LOCATE#2,6,17:PRINT#2,CHR$(58):LOCATE# 
2,9,11:PRINT#2,CHR$(58) 

900 GRAPHICS PEN 2 

910 MOVE 390,280:DRAWR 208,0:DRAWR 0,-66:D 
RAWR-208,0:DRAWR 0,66 

920 MOVE 390,198:DRAWR 170,0:DRAWR 0,-80:D 
RAWR-17 0,0'.DRAWR 0,80 

930 MOVE 390,102:DRAWR 208,0:DRAWR 0,-80:D 
RAWR-208,0:DRAWR 0,80 
940 GRAPHICS PEN 1 
950 ' 

960 ' - Spielfeld aufbauen 

970 ' 

980 GOTO 1950 

990 CLEAR:WINDOW#0,1,24,1,25:CLS#0:xm=PEEK 
(30010):ym=xm:bm=INT((1/(11-2*PEEK(30009)) 
)*(xm/2) A 2) 

1000 DIM kx(bm+l),ky(bm+l),d(xm,ym),bx(bm) 
,by(bm) 

1010 GOSUB 1830:PEN l:FOR y=l TO ym STEP 2 
:FOR x=l TO xm STEP 2 

1020 LOCATE x,y:PRINT CHRS(239);CHR$(240): 
LOCATE x,y+l:PRINT CHRS(241);CHR$(242);:NE 
XT x,y 
1030 ' 

1040 ' - Bombenkoordinaten festlegen 

1050 ' 

1060 RANDOMIZE TIME:FOR a=l TO bm 

1070 x=2*INT(RND*(xm/2)+1)—1:y=2*INT(RND*( 

ym/2)+l)-l:bx(a)=x:by(a)=y 

1080 FOR s=l TO a-1:IF x=bx(s)AND y=by(s)T 

HEN 1070 ELSE NEXT:NEXT 

1090 FOR a=l TO bm-l:FOR b=a+l TO bm:IF bx 
(a)<=bx(b)GOTO 1110 

1100 hi=bx(b):bx(b)=bx(a):bx(a)=hi:hi=by(b 
):by(b)=by(a):by(a)=hi 
1110 NEXT b,a:GOTO 1320 
1120 ' 

1130 ' - Anzahl der Bomben neben einem F 

eld ausrechnen 
1140 ' 

1150 IF d(x,y)>0 THEN GRAPHICS PEN 2:RETUR 
N 

1160 GOSUB 1790:FOR a=l TO z:IF kx(a)=x AN 
D ky(a)=y THEN RETURN ELSE NEXT 
1170 FOR a=l TO bm:IF x=bx(a)AND y=by(a)TH 
EN GOSUB 1540:CLEAR INPUT:GOTO 2000:ELSE N 
EXT:GOSUB 1190:RETURN 

1180 IF x=bx(a)AND y=by(a)THEN GOSUB 1540: 
CLEAR INPUT: GOTO 2000: ELSE NEXT'.GOSUB 1190 
:RETURN 

1190 FOR a=l TO bm:IF bx(a)=x-2 THEN low=a 
:GOTO 1220:ELSE NEXT 

1200 FOR a=l TO bm:IF bx(a)=x THEN low=a:G 
OTO 1220:ELSE NEXT 
1210 FOR a=l TO bm:IF bx(a)=x+2 THEN low=a 
ELSE NEXT 

1220 FOR a=bm TO 1 STEP-1:IF bx(a)=x+2 THE 

N high=a:GOTO 1250:ELSE NEXT 

1230 FOR a=bm TO 1 STEP-1:IF bx(a)=x THEN 

high=a:GOTO 1250:ELSE NEXT 

1240 FOR a=bm TO 1 STEP-1:IF bx(a)=x-2 THE 

N high=a:ELSE NEXT 

1250 FOR a=low TO high:IF by(a)=y+2 OR by( 
a)=y OR by(a)=y-2 THEN d=d+l 
1260 NEXT:low=0:high=0 

1270 IF d=0 THEN PRINT#1, CHRS ( 251),' CHRS ( 25 
1);CHR$(251);CHR$(251);:d(X,y)=l:GOSUB 153 
0:RETURN 

1280 PEN#1,1: PRINT#1, CHRS (2 30+d),'CHR$( 251) 
;CHR$(251);CHRS(251);:d(x,y)=l:d=0:GOSUB 1 
530:PEN#1,3:RETURN 
1290 ' 

1300 ' - Zeit anzeigen 

1310 ' 

1320 x=l:y=l:WINDOW#1,x,x+l,y,y+l:GRAPHICS 
PEN 2:GOSUB 1530:ti=TIME 
1330 cl=INT((TIME-ti)/300):mi=INT(cl/60):s 


[7332] 


ec=cl-(mi*60) 

1340 IF miclO THEN LOCATE#2,8,9 ELSE LOCAT 
E#2,7,9 

1350 PRINT#2,mi 

1360 IF sec<10 THEN LOCATE#2,11,9:PRINT#2 , 
CHRS(48)+CHRS(sec+48):ELSE LOCATE#2,10,9:P 


[5923] 


RINT#2,sec 

[6693] 


1370 ' 

1380 ' - Tastaturabfrage 

1390 ' 

1400 t$=UPPER$(INKEYS):IF t$=""THEN 1330 E 

[5066] 


LSE t=ASC(t$):IF t<240 OR t>244 THEN:IF t< 
>224 THEN:IF t$<>" "THEN:IF t<>13 THEN:IF 
t<>l27 THEN 1330 

[948] 


1410 IF t=240 AND y>2 THEN GRAPHICS PEN 0: 
GOSUB 1530:y=y-2:GOSUB 1530 

[3850] 


1420 IF t=241 AND y<ym-2 THEN GRAPHICS PEN 

[2523] 


0:GOSUB 1530:y=y+2:GOSUB 1530 

1430 IF t=242 AND X>2 THEN GRAPHICS PEN 0: 

[2914] 


GOSUB 1530:x=X-2:GOSUB 1530 

1440 IF t=243 AND x<xm-2 THEN GRAPHICS PEN 

[949] 


0 .'GOSUB 1530 :x=X+2 :G0SUB 1530 

1450 IF t=224 THEN GRAPHICS PEN 2:GOSUB 15 

[117] 


30:GOSUB 1150 

[847] 


1460 IF t=127 THEN GRAPHICS PEN 0:GOSUB 15 

[117] 


30:GOSUB- 157 0:GOTO 2000 

[341] 


1470 IF t$ = " "THEN GRAPHICS PEN l:GOSUB 16 

[6878] 


30:GOSUB 1530 

[3011] 


1480 IF t=l3 THEN GOSUB 1870 

1490 WINDOW#1,X,X+1,y,y+l:GOTO 1330 

1500 ' 

[4229] 


1510 ' - Rahmencursor zeichnen 

1520 ' 

[3029] 


1530 MOVE(2*X-2)*8,398-(2*y-2)*8:DRAWR 0,- 
30:DRAWR 30,0:DRAWR 0,30:DRAWR-30,0:GRAPHI 

[117] 


CS PEN 2:RETURN 

1540 ' 

1550 ' - Game over + alle bomben zeigen 

[1463] 


1560 ' 

[117] 


1570 GOSUB 1780 

[1678] 


1580 PEN 2:FOR a=l TO bm:LOCATE bx(a),by(a 

[4068] 


): PRINT CHRS ( 243 ),'CHRS (244) 

[4593] 


1590 LOCATE bx(a),by(a)+1:PRINT CHR$(245); 
CHRS (246)'.NEXT: PEN 1:RETURN 

[3786] 


1600 ' 

1610 ' - Bomben mit Kreuz kennzeichnen 

[5379] 


1620 ' 

1630 IF d(x,y)>0 THEN GRAPHICS PEN 2:RETUR 

N 

1640 IF bm=z THEN:FOR a=l TO z ELSE 1660 

[642] 


[117] 


1650 IF kx(a)=x AND ky(a)=y THEN 1680 ELSE 

[3837] 


NEXT a:GRAPHICS PEN 2:RETURN 

[117] 


1660 z=z+l:FOR a=l TO z:CLS#l:IF kx(a)=x A 
ND ky(a)=y THEN 1680 ELSE NEXT a 

[1974] 


1670 GOSUB 1770:PEN#1,3:PRINT#1,CHR$(247); 

[4214] 


CHR$(248);CHRS(249);CHRS(250);:kx(z)=x:ky( 
i z)=y:GOSUB 1830:GRAPHICS PEN 2:RETURN 

[6653] 


: 1680 GOSUB 1770:PEN#1,1:PRINT#1,CHR$(239); 

| CHR$(240) ;CHR$( 241),'CHRS (242),' :kx(a)=0:l=l 

[6244] 


+1:PEN#1,3:GRAPHICS PEN 2:ELSE RETURN 

1690 FOR q=l TO l:FOR S=1 TO z 

1700 IF kx(s)=0 THEN FOR a=s TO z:kx(a)=kx 

[4332] 


(a+1):ky(a)=ky(a+l):NEXT a 

1710 NEXT s,q:g=z:z=0:FOR a=l TO g:lF kx(a 
)>0 THEN z=z+l 

[3091] 


1720 NEXT a :q=0:GOSUB 1830'.RETURN 

1730 ' 

[3654] 


1740 ' - Sound 

1750 ' 

[6160] 


1760 SOUND 1,500,15,15:SOUND 1,400,15,15:S 
OUND 1,300,15,15:SOUND 1,200,15,15:RETURN 

[5131] 


1770 SOUND 1,120,5,15:SOUND 1,100,5,15:SOU 
ND 1,80,5,15:SOUND 1,60,5,15:RETURN 

[4574] 


1780 SOUND 1,900,0,15,1,,15:RETURN 

1790 SOUND 1,650,0,15,2:RETURN 

[5490] 


1800 ' 

1810 ' - Anzahl der Kreuze anzeigen 

[781] 


1820 ' 

1830 IF bm-z<10 THEN LOCATE#2,11,11:PRINT# 

[5083] 


2,bm-z;:RETURN ELSE LOCATE#2,10,11:PRINT#2 

[6154] 


,bm-z; : RETURN 

1840 ' 

1850 ' - Kontolle ob Kreuze auch wirklic 

[117] 


h Bomben sind 

1860 ' 

1870 IF zobm THEN RETURN 

[926] 


1880 GRAPHICS PEN 0:GOSUB 1530:FOR a=l TO 

[117] 


z : FOR b=l TO z 

[5487] 


1890 IF bx(a)=kx(b)AND by(a)=ky(b)THEN v=v 
+ 1 

1900 NEXT b,a:m=5-PEEK(30009):hi=(PEEK(299 

[3970] 



[3626] 

[381] 

[5219] 


[117] 
[2297 ] 
[117] 
[7008] 


[3686] 

[2228] 

[3295] 

[3490] 

[3109] 

[3345] 

[4179] 

[1034] 

[2529] 

[117] 

[1045] 

[117] 

[5829] 


[117] 

[2146] 

[117] 

[855] 

[4557] 

[4938] 

[117] 

[3358] 

[117] 

[1974] 

[3385] 

[4166] 

[3053] 

[6620] 


[6753] 


[1243] 

[1894] 

[3769] 

[1287] 

[117] 

[877] 

[117] 

[3873] 

[3222] 

[2234] 

[2322] 

[117] 

[2247] 

[117] 

[6336] 


[117] 

[4860] 

[117] 

[1014] 

[3324] 

[1700] 

[5019] 
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98+(2*m)))*255+PEEK(29998+(2*m)+l) 

1910 IF V=Z AND cl<=hi THEN GOSUB 1760:GOS [6845] 
UB 1580:FOR a=l TO 400:NEXT:GOSUB 2430:GOS 
UB 2510 ELSE GOSUB 1570:GOTO 2000 

1920 ' [117] 

1930 ' - auswahlmenue [1845] 

1940 ' [117] 

1950 GOSUB 2190:CLS#3 [1368] 

1960 LOCATE#3,3,1:PRINT#3,CHRS(170);CHRS(1 [5787] 
71);CHR$(172);CHR$(173);CHR$(174);CHR$(175 

1970 LOCATE#3,3,2:PRINT#3,CHR$(162);CHR$(l [4987] 
63);CHR$(165);CHRS(166);CHR$(167);CHRS(168 
);CHRS(169) 

1980 LOCATE#3,3,3:PRINT#3,CHR$(157);CHR${1 [3872] 
58);CHRS(159);CHRS(160);CHR$(161) 

1990 LOCATE#3,3,4 rPRINT#3,CHRS(139);CHRS(1 [2788] 
40);CHRS(141);CHRS(142);CHRS(143) 

2000 y=l:LOCATE#3,l,l:PRINT#3,CHR$(62):LOC [3865] 
ATE# 3,12,1:PRINT#3,CHR$(60); 

2010 t$=UPPER$(INKEYS):IF t$=""THEN 2010 E [5333] 
LSE t=ASC(t$):IF t<240 OR t>241 THEN:IF t< 

>224 THEN 2010 

2020 GOSUB 2070:IF t=224 THEN GOSUB 1790:E [2217] 
LSE 2010 

2030 IF y=l THEN z=0‘.GRAPHICS PEN 1: PEN 1: [7946] 
LOCATE# 3,1,1:PRINT#3,CHR$(32);:LOCATE# 3,12 
,1:PRINT#3,CHRS(32);:GOTO 990 

2040 IF y=2 THEN 2100 [944] 

2050 IF y=3 THEN GOSUB 2310:GOSUB 2470:GOT [2277] 
O 2010 

2060 IF y=4 THEN END [632] 

2070 IF t=240 AND y>l THEN LOCATE#3,1,y:PR [7648] 
INT#3,CHRS(32):LOCATE# 3,12,y:PRINT#3,CHRS( 

32); :y=y _ l LOCATE# 3,1, y: PRINT# 3 , CHR$ (62 ) : L 
OCATE#3,12,y:PRINT#3,CHRS(60);:RETURN 
2080 IF t=241 AND y<4 THEN LOCATE#3,1,y:PR [8283] 
INT# 3,CHRS(32):LOCATE# 3,12,y:PRINT#3,CHRS( 

32);:y=y+1:LOCATE# 3,1,y:PRINT# 3,CHRS(6 2):L 
OCATE#3,12 ,y: PRINT#3 , CHR$ (60),*: RETURN 
2090 RETURN [555] 

2100 CLS#3:LOCATE#3,3,1:PRINT#3,CHRS(138); [5398] 
CHRS (137 ) ;CHR$ (136 ) ;CHR$( 135) ,‘CHR$( 230) 

2110 LOCATE#3,3,2:PRINT#3,CHRS(153);CHRS(1 [2372] 
54);CHR$(155);CHR$(156) 

2120 LOCATE#3,3,3:PRINT#3,CHRS(150);CHRS(1 [2684] 
51);CHRS(152) 

2130 LOCATE#3,3,4:PRINT#3,CHR$(144);CHR$(1 [4586] 
45);CHR$(146);CHR$(147);CHRS(148);CHR$(149 

2140 y=l:LOCATE#3,1,1:PRINT#3,CHR$(62):LOC [3865] 
ATE#3,12,1:PRINT#3,CHRS(60); 

2150 t$=UPPER$(INKEYS):IF t$=""THEN 2150 E [5435] 
LSE t=ASC(t$):IF t<240 OR t>241 THEN:IF t< 

>224 THEN 2150 

2160 GOSUB 2070 [869] 

2170 IF t=224 THEN POKE 30009,y.POKE 30010 [5008] 

,4*(y+2):GOSUB 1790:GOSUB 2190:GOTO 1950 
2180 GOTO 2150 [349] 

2190 IF PEEK(30009)=1 THEN 1$=CHR$(138)+CH [5413] 

RS(137)+CHRS(136)+CHR$(135)+CHR$(230)+CHR$ 

(32) 

2200 IF PEEK(30009)=2 THEN 1$=CHR$(153)+CH [4627] 
R$(154)+CHRS(155)+CHR$(156)+CHRS(32)+CHRS( 

32) 

2210 IF PEEK(30009)=3 THEN 1$=CHR$(150)+CH [3664] 
R$(151)+CHRS(152)+CHRS(32)+CHR$(32)+CHRS(3 
2) 

2220 IF PEEK(30009)=4 THEN 1$=CHR$(144)+CH [4036] 
R$(145)+CHRS(146)+CHR$(147)+CHR$(148)+CHRS 
(149) 

2230 bm=PEEK ( 30009 ) :xm=PEEK( 30010) :ym=xm:L [2619] 
OCATE#2,2,14:PRINT#2,1$ 

2240 IF xm*ym/4>99 THEN LOCATE#2,7,16 ELSE [3188] 
LOCATE#2,8,16 

2250 PRINT#2,xm*yro/4;:bm=INT((1/(11-2*PEEK [3542] 
(30009)))*(xm/2) A 2) 

2260 IF bm<10 THEN LOCATE#2,9,17 ELSE LOCA [2458] 
TE#2,8,17 

2270 PRINT#2,bm;:RETURN [1157] 

2280 ' [117] 

2290 ' - High-Score-Tabelle darstellen [2980] 

2300 ' [117] 

2310 GRAPHICS PEN 1:WINDOW#0,1,24,1,25:CLS [2939] 

2320 MOVE 6,18:DRAWR 370,0:DRAWR 0,358:DRA [1598] 
WR-98,0 

2330 MOVE 6,18:DRAWR 0,358:DRAWR 78,0 [1706] 

2340 MOVE 86,390:DRAWR 192,0:DRAWR 0,-28:D [3529] 
RAWR-192,0:DRAWR 0,28 


i. 


2350 PEN 2:LOCATE 7,2:PRINT"HI - SCORES":L 
OCATE 20,3:PRINT"TIME"; 

2 360 LOCATE 2,5‘.PRINT CHRS (144 ) ,‘CHR$ (145); 
CHRS (146 ),‘ CHRS (147 ),‘CHRS (148),‘CHRS (149) 

2370 LOCATE 2,10:PRINT CHR$(150);CHRS(151) 
;CHR$(152) 

2380 LOCATE 2,15:PRINT CHRS(153);CHR$(154) 

;CHRS(155);CHRS(156) 

2390 LOCATE 2,20:PRINT CHRS(138);CHR$(137) 
;CHR$(136);CHRS(135),‘CHRS(230) 

2400 ' 

2410 ' - High-Score-Tabelle von Diskette 

lesen 
2420 ' 

2430 PEN 1:OPENIN"think.sco":FOR a=4 TO 1 
STEP-1:FOR b=l TO 4 

2440 INPUT#9,name$(a,b):INPUT#9,s(a,b):NEX 
T b,a:CLOSEIN 

2450 FOR a=l TO 4:POKE 29998+(2*a),INT(S(a 
,4)/255) 

2460 POKE 29998+(2*a)+l,s(a,4)-(INT(s(a,4) 
/255)*255):NEXT:RETURN 

2470 FOR a=l TO 4:FOR b=l TO 4:LOCATE 9,a* 
5+b-l:PRINT name$(a,b) 

2480 mi=INT(s(a,b)/60):sec=s(a,b)-(mi*60): 
LOCATE 19,a*5+b-l:PRINT mi:LOCATE 22,a*5+b 
-1 

2490 IF sec<10 THEN PRINT CHR$(48)+CHRS(se 
C+48) ELSE PRINT CHR$ (48+INT( sec/10)) ,‘CHR$( 
48+sec-((INT(sec/10) )*10)); 

2500 NEXT:NEXT:RETURN 

2510 FOR a=l TO 4:IF s(m,a)>=cl THEN 2520 
ELSE NEXT 

2520 FOR b=4 TO a+1 STEP-1:s(m,b)=s(m,b-l) 

:NEXT:s(m,a)=cl:GOSUB 2630 
2530 ' 

2540 ' - Highscore-Tabelle auf Diskette 

schreiben 
2550 ' 

2560 OPENOUT"think.sco":FOR b=4 TO a+1 STE 
P-l 

2570 nameS(m,b)=name$(m,b-l):NEXT:name$ (m, 
a)=a$:FOR a=4 TO 1 STEP-1 

2580 FOR b=l TO 4:PRINT#9,name$(a,b):PRINT 
#9,s(a,b):NEXT:NEXT:CLOSEOUT 
2590 GOSUB 2310:GOSUB 2450:GOSUB 2470:GOTO 
2000 
2600 ' 

2610 ' - Namen eingeben 

2620 ' 

2630 WINDOW#0,1,23,1,25:CLS#0 

2640 MOVE 2,370:DRAWR 372,0:DRAWR 0,-150:D 

RAWR-372,0:DRAWR 0,150 

2650 MOVE 62,300:DRAWR 180,0:DRAWR 0,-42:D 
RAWR-180,0:DRAWR 0,42 

2660 LOCATE 2,4:PRINT"Please enter your Na 
me"; 

2670 WINDOW#4,6,14,8,8:PAPER#4,0:PEN#4,1:C 
LS #4 

2680 t$=UPPER$(INKEYS):IF t$=""THEN 2680 E 
LSE t=ASC(t$):SOUND 1,400,6,10:IF t<65 OR 
t>90 THEN:IF t<>13 THEN:IF t<>127 THEN 268 
0 

2690 IF t=l3 THEN:IF LEN(a$)=0 THEN 2680 E 
LSE RETURN 

2700 IF LEN(a$)=0 AND t=127 THEN CLS#4:a$= 
"":GOTO 2680 

2710 IF LEN(a$)=9 AND t<>127 THEN 2680 
2720 IF t=l27 THEN LOCATE#4,LEN(a$),1:PRIN 
T#4 , CHRS ( 32 ) ,‘ :a$=LEB'TS (a$ ,LEN(a$ ) -1) : LOCAT 
E#4,1,1:PRINT#4,a$;:ELSE a$=a$+tS:LOCATE#4 
,1,1:PRINT#4,aS; 

2730 GOTO 2680 


[4062] 

[4634] 

[1890] 

[4621] 

[4597] 

[117] 

[3570] 

[117] 

[4673] 

[3237] 

[2850] 

[2253] 

[3724] 

[3560] 

[6380] 


[1435] 

[2673] 

[4056] 

[117] 

[2956] 

[117] 

[2446] 

[2456] 

[4160] 

[2664] 

[117] 

[1574] 

[117] 

[1775] 

[3736] 

[3343] 

[3203] 

[2620] 

[6556] 


[1865] 

[3058] 

[1665] 

[8117] 


[387] 


100 ' THINK-SC.BAS 'Generiert Highscore-Ta [2731] 
belle 

110 ' CPC 664/6128(plus) [1532] 

120 ' (c) 1992 Ivo Mieskes [1279] 

130 ' & CPC International [2118] 

140 OPENOUT "think.sco":DIM nameS(4,4):FOR [2851] 
a=l TO 4:FOR b=l TO 4 

150 nameS(a,b)="CPC INTERNATIONAL":NEXT b, [1924] 
a 

160 FOR a=l TO 4:s(l,a)=a*30:s(2,a)=60+a*3 [3783] 
0:s(3,a)=180+a*30:s(4,a)=420+a*30:NEXT 
170 s(l,a)=a*30:s(2,a)=60+a*30:s(3,a)=180+ [3055] 
a*30:s(4,a)=4 2-0+a*30 

180 FOR a=l TO 4:FOR b=l TO 4 [1551] 

190 PRINT #9,nameS(a,b):PRINT #9,s(a,b):NE [5342] 
XT:NEXT:CLOSEOUT 
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Bonusprogramm 


... und wo lassen Sie 

rechnen? 

”Adam Riese” - eine leistungsfähige 
Tabellenkalkulation auf der DATABOX 


VVoes um Zahlen geht, ist der Computer in seinem Element. Rechnen, 
das kann er. Dennoch gibt es gerade für die CPCs nur wenige Programme, 
die Zahlenwerte übersichtlich, flexibel und zugleich ohne lästige Umwege 
verarbeiten können. “Adam Riese" ist ein solches Programm-,ein Helfer für 
alle Rechenfälle.ob Sie nun ein Haushaltsbuch führen, Benzinverbrauche 
verfolgen, Kontobewegungen dokumentieren oder Lagerbestände v erwalten 
wollen. 


Diesmal haben wir mit der Tabellenkal¬ 
kulation “Adam Riese” wirklich ein be¬ 
sonders leistungsfähiges Anwen¬ 
dungsprogramm für Sie aufgestöbert. 
"Adam Riese" läuft auf allen CPCs-ob 
464,664,6128 oder Plus und läßt sich 
notfalls sogar auf Kassette einsetzen. 
Eine ausgeklügelte Installationsrouti¬ 
ne erkennt Ihr CPC-Modell automa¬ 
tisch und paßt den Maschinenteil des 
Programms entsprechend an. Sie fin¬ 
den "Adam Riese" als Bonusprogramm 
auf der DATABOX-Diskette zu dieser 
I leftausgabe. 


<CTRL>-<M>: zum Menü 
Das Menü enthält 16 Optionen. Das 
Ändern von Formel, Format und Spal¬ 
tenbezeichnung bezieht sich ebenso 
wie “Formel ausgeben” jeweils auf die 
gesamte aktuelle Tabellenspalte. Der 
Cursor muß vor Aufruf des Menüs im 
"Zeigermodus" auf ein Feld der ge¬ 
wünschten Spalte gesetzt werden. 

Mammut-Menü 

Im Menü wird eine gewünschte Option 
mit den Cursortasten angewählt und 


mit <Rcturn> bestätigt. Die Wahl des 
Menüpunkts <Weiter> führt zurück in 
den “Zeigermodus”. Hier die Bedeu¬ 
tung der übrigen Men ii punkte: 

Formel ändern: bestimmt, was in je¬ 
dem Feld der gewählten Spalte gesche¬ 
hen soll. Voreinstellung ist "Rn”, wobei 
statt n die Spaltennummer erscheint. 
Dies bedeutet, daß die Fel der der Spalte 
n ihre Werte per Direkteingabe erhalten 
sollen. 

Statt dessen läßt sieh die gewählte Spal¬ 
te auch anweisen, berechnete Werte 
darzustellen. Die Formel dafür wird 
wie vom Basic gewohnt formuliert, al¬ 
so etwa “R1+R2” (addiere die beiden 
Werte der gleichen Zeile, die in der 1. 
und 2. Spalte stehen) oder auch 
“2*SQR((R I ) A 3+1 )-SIN(R 1)”. 

Gtb’s ihm spaltenweise! 

Über die arithmetischen Funktionen 
des Basic hinaus lassen sich in den For¬ 
meln für “Adam Riese" noch die beiden 
Variablen SUn (n=Spaltennummer) 
und ZF verwenden. ZE entspricht der 
Zeilennummer des jeweiligen Feldes. 
“2*ZE" erzeugt somit eine Spalte von 
fortlaufend in Zweier-Abstand nume¬ 
rierten Feldern. SUn steht für die Spal¬ 
tensumme der angegebenen Spalte. Die 
Formel "R I * 100/SU I" rechnet, wenn 
man sie für die 2. Spalte einträgt, alle 
Werte der 1. Spalte in Prozentwerte um. 








Flott installiert 

Bevor der “Rechenknecht” seine Ar¬ 
beit aufnehmen kann, wird mit dem In¬ 
stal 1 ationsprogramm “IN STA DA M ’' 
ein passendes Binärfile für 464. 664 
oder 6128 erzeugt. Nach dem Start von 
“ADAM" meldet sich das Kalkula¬ 
tionsprogramm dann zunächst mit ei¬ 
ner leeren Tabelle, der Cursor steht in 
derersten Spalte ganz oben. Dies ist der 
"Zeigermodus“; hier stehen die folgen¬ 
de Befehle zur Verfügung. 

<COPY>: Eingabe eines Werts an der 
Cursorposition (Abschließen mit <RE- 
TURN> 

<CTRL>-<E>: Eingabe einer Werte¬ 
gruppe in eine Spalte (Zeilenwechsel 
mit <RFTURN>, abschließen mit er¬ 
neutem <CTRL>-<E>) 

<CTRL>-<R>: Auslösen des Rechen¬ 
vorgangs; der gesamte Datenbereich 
wird durchgerechnet 



Ifltft aö x,y 
!SPEICHERN 
DATEN loeschen 


FORMAT aendern 

UEBERSCHRIFT 

LADEN 

FORMEL ausg. 


REIHENBEZ. aendern ZEILENBEZ. aendern 

drücken m/m 

CAT ARBEITSBLATT 

DRÜCKER einstellen WEITER 


Das liiltlsi hirnifenster von "Adam Riese " zeigt immer nur einen Ausschnitt aus der jeweiligen Ge- 
samttahelle und läßt sieh mit den Cursortasten auf dieser verschieben. Die Größe der ganzen Tabel¬ 
le ist im R,ilnnen des begrenzten CRC-Arbeitsspeichers frei einstellbar. 
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Bonusprogramm 


Achtung: In einem solchen Fall muß 
die I. Spalte mindestens einen Werl 
enthalten, bevor man die Tabelle durch¬ 
rechnen läßt. Anderenfalls wäre die 
Formel in Spalte 2 gezwungen, durch 
Null zu teilen, was mit einer Fehlermel¬ 
dung bestraft würde. Bei einer Nulldi¬ 
vision ersetzt das Programm nach der 
Fehlermeldung den Nullbetrag intern 
durch den Wert 0.0000001. um weiter¬ 
rechnenzu können. 

Formel anzeigen: gibt über die Formel 
Auskunft, die der gewählten Spalte ak¬ 
tuell zugewiesen ist. 

Format ändern: legt Stellenzahl. 
Kommaposition und Textergänzungen 
(Einheiten, Prozentzeichen) für die ge¬ 
wählte Spalte fest. Die Schreibweise 
entspricht der Syntax für den “PRINT 
US1NG()”-Befehl in Basic. Beispiel: 
Das Format "####.## DM“ bringt bei 
Eingabe von “3“ die Darstellung “3.00 
DM”. Die Gesamtlänge des Formats ist 
auf 12 Zeichen begrenzt. Nach Festle¬ 
gung des Formats möchte das Pro¬ 
gramm noch wissen, ob es die Spalten¬ 
summe der gewählten Spalte in glei¬ 
chem Format daruntersetzen soll oder 
nicht. 

Reihen- und Zeilenbezeichnung än¬ 
dern: Spaltenüberschriften dürfen 
höchstens zehn. Zeilentexte höchstens 
fünf Zeichen lang sein. Diese Befehle 
beziehen sich immer auf die Spalte be¬ 
ziehungsweise Zeile, in der der Cursor 
vor Aufruf des Menüs steht. 

Ausgabe ab x,y: verschiebt das Bild¬ 
schirmfenster so. daß das angegebene 
Feld der Tabelle die linke obere Ecke 
bildet. So ist bei größeren Tabellen ein 
schnelles Springen ohne lange Cursor- 
Wanderwege möglich. 

Überschrift: Die Eingabe der Gesamt¬ 
überschrift für die Tabelle wird mit 
<Return> abgeschlossen, das Pro¬ 
gramm zentriert diesen bis zu 70 Zei¬ 
chen langen Text automatisch. 

Drucker einstellen: ermöglicht die 
Wahl des Zeilenabstands und das Ein- 
und Ausschalten eines etwaigen NLQ- 
Modus. 

Keine Drückeberger! 

Die Steuerzeichen im Programm sind 
auf einen DMP-2000-Matrixdrucker 
angelegt und sollten für alle Epson- 



FX-80-kompatiblen Geräte passen. Ei¬ 
ne eventuelle Anpassung an andere 
Drucker ist kinderleicht, da der ent¬ 
sprechende Programmteil in Basic ge¬ 
schrieben und gut kommentiert ist. 

Drucken: Hier ist zwischen 80- und 
132-Zeichen-Modus zu wählen. Der 
erste bringt nur die auf dem Bildschirm 
sichtbaren 6 Spalten auf den Druckei¬ 
der 132-Zeichen-Modus schafft 10 
Spalten. Dabei bestimmt die linke obe¬ 
re Ecke des Bildschirmfensters den Be¬ 
ginn des Ausdrucks. 

DFG/RAD: bestimmt, ob in Formeln 
auftauchende Winkelfunktionen (SIN. 
COS. TAN. ATN) die ihnen übergebe¬ 
nen Werte als Gradzahlen (DEG) oder 
Bogenmaß (RAD) auffassen. Vorein¬ 
stellung ist Bogenmaß. 

Speichern: Das Programm bietet vier 
Möglichkeiten des Speicherns. "Kom¬ 
plett" speichert das Arbeitsblatt (For¬ 
meln. Formate. Überschriften usw.) 
und alle Daten ab. "Daten" beschränkt 
sich auf die Daten in den Feldern und 
erlaubt so den Export des Inhalts einer 
Tabelle in eine andere. ''Arbeitsblatt" 
speichert sozusagen nur die Form und 
vergißt den Inhalt. So läßt sich etwa aus 
einer "durchgestyllen“ Buchführungs- 
Tabelle eine fertig eingerichtete Tabel¬ 
le mit sämtlichen Formeln, aber leeren 
Wertefeldern fürs neue Jahr gewinnen. 

Partner für Datenimpor¬ 
teure 

"ASCII" speichert die jeweils im Bild¬ 
schirmfenster sichtbaren 6 Spalten als 
ASCII-Textinformation und ermög¬ 
licht damit den Export von Tabellenda- 
ten zu einem ASCII-fähigen Textverar¬ 
beitungsprogramm (etwa dem “Text- 
Assistenten” von der letzten DATA- 
BOX!). 

Laden: Analog zum Speichern gibt es 
hier drei Möglichkeiten. " Komplett" 
lädt eine mit “Komplett speichern“ er¬ 
zeugte Datei. Alle Daten, die gerade im 
Speicher sind und noch nicht auf Dis¬ 
kette gesichert wurden, gehen beim La¬ 
den einer "Komplett”-Tabelle verlo¬ 
ren. "Daten" lädt in ein bereits auf dem 
Bildschirm befindliches Arbeitsblatt 
neue Daten ein. Ist deren Anzahl für das 
aktuelle Arbeitsblatt zu groß, läßt sich 
das Laden auf einen passenden 'Feil be¬ 
schränken. " Arbeitsblatt " lädt ein Ta¬ 
bellenformular mit Formeln und Tex¬ 


ten. dessen Wertefelder leer sind. Be¬ 
findet sich bereits eine Tabelle im Spei¬ 
cher, so werden deren Daten in das ge¬ 
ladene Arbeitsblatt übernommen. Des¬ 
sen Größe läßt sich zu diesem Zweck an 
den vorhandenen Daten um läng anpas¬ 
sen. Verzichtet man auf die Anpassung 
eines zu großen Arbeitsblatts, werden 
die im Speicher befindlichen Daten 
gelöscht. 

Cat: gibt ein Inhaltsverzeichnis der ak¬ 
tuellen Diskette im Bildschirmfenster 
aus 

Arbeitsblatt: bestimmt die Dimensio¬ 
nen des Tabellenformulars. "Größe 
verändern'' erhält dabei den Formci- 
und Überschriftenbestand sowie die 
bislang eingegebenen Werte. Aller¬ 
dings läßt sich eine vorhandene Tabelle 
hiermit nur verkleinern, nicht aber er¬ 
weitern. Beim Verkleinern wird kein 
Speicherplatz frei; die “abgeschnitte¬ 
nen“ Bereiche der Tabelle lassen sich 
durch erneuten Aufruf dieses Menii- 
punkts wieder “ankleben”. "Neues 
Formblatt" verwirft alle eventuell be¬ 
reits im Speicher befindlichen Formeln 
und Daten. Es wird eine ganz jungfräu¬ 
liche Tabelle mit frei bestimmbarer 
Größe zur Verfügung gestellt. 

Daten löschen: erhält die Formeln und 
Überschriften einer im Speicher be¬ 
findlichen Tabelle, setzt jedoch alle 
eingegebenen Werte auf Null. 

Rechnen mit Spaß 

Was die Geschwindigkeit der Wertever¬ 
arbeitung angeht, wird das Programm 
zwar keine Rekorde brechen. Da es 
beim Rechnen aber weitgehend auf Ma¬ 
schinenspracheroutinen zurückgreift, 
erreicht es dennoch ein akzeptables Ar¬ 
beitstempo. Freilich können allzu große 
Tabellenumfänge und komplexe For¬ 
meln. besonders Wurzel- oder trigono¬ 
metrische Funktionen, die Sache dra¬ 
matisch verzögern. Es empfiehlt sich, 
nur zeitweise benötigte Formelbereiche 
am Tabellenrand zu plazieren, um sie 
bei Bedarf durch Ändern der aktivenTa- 
be 11 e n grö ße abz. usch al te n. 

“Adam Riese“ ist zwar ein Programm 
für harte Zahlenbeißerei und nicht zum 
Spielen. Wir sind jedoch überzeugt, 
daß die Arbeit mit unserem komforta¬ 
blen Rechengenie auch Ihnen Spaß ma¬ 
chen wird. 

(S7.) 
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Ihre Quelle für 
bewährte Qualitäts¬ 
software: Bei uns 
finden Sie Futter 
für Ihren Computer 
— zum Mini-Preis! 


Beachten Sie bitte für 
alle Produkte im DMV- 
Versandservice unsere 
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l naldum-ir von dei Anzahl dei bestellten 
Programme oik'i I k 11 c lieic-cbncn u ir bet jeder 
Sendung IUi das Inlaml -I. UM, liir das Aus 
Lind 6. DM Ponnimd Verpaekullg Alk-Soli 
wurc-Pnxhiktr Im l'lt.' und loysc weiden, 
wenn nicht luidots angegeben. aul 1 /oll F>iv 
keilen uusgehcferl Bille beachten Sie die je 
welligen BancUnommcm und benutzen Sie die 
diesem Hell beigelügtcn Bcstcllkanen. 


/ / / 
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für CPC 464, 
664 und 6128: 



CopyShop 

Das universelle BiltLscbirnulruck-Prngrunini für alle I T< s. Wo! 
len Sic Ihre taumhaAschöne Frakialgrntik im Freundeskreis zeigen, 
odei brauchen Sie zu Ihrem selbstgeschriebenen Programm einen 
Konimll-Ausdruik’ CopyShop bringt Ihre Bildschimuinsichlcn zu 
l’apie:. auch mit tkn exotischsten Druckern Verschiedene Sehr.ilfu 
rer. lür (iiauuine lassen sieh ilen einzelnen Bildsehirmtailieii frei 
zuordnen Bin Show-Modus zcigl Ihnen die Ilankopy vor dem 
endgültigen Ausdruck auf dem Bildsehinn! 

B Verarbeitet Bilder Im Standard• Sciccnf onn.ii (17 kByle 
limmüles) 

B Viel Ausdruck-Formale von handlich bis DIN A 4i|uei 

■ Arbeitet in allen dix-i CPC-Bild-yehintinuKli 

■ Integrierter (indikeditor mit Flilllünktion und Druck 
voraussichi 

■ Beliebige Ansschnillsvcrgröllerungcn und Invertierung 

■ AnpassuiigsmeiiU lüralle l-.pson- und Scikosha-Drucket 
H Auch für gedtehte Bitbild-Byles. z B lieim NF.(' P2 

■ VI ii spcichcrpkilz.spai'cmlcni Seivcudump-Utility zum Vorla- 

den erzeugt uul liisiendmck ..Standard-1 

kBytc- Foimot aus beliebigen läutenden Programmen heraus 

■ Mit sclhsm-lozieieuder Haidcopy Routine lur eigene Pro¬ 
gramme 

Hesl-Nr. 202 , UM -PI.- 


Turbo-DATA-CPC 

Volldampf in der Dateivcrwaltung 

Biauelien Sie ein neues Adreßbuch otlcrTclcIonverzcichiljs? Müssen 
Sie Ihre Sammlungen von Briefmarken. Sdiallplailen. Dias Dikl 
.uuleren .Schützen son toten ' Alles kein Piohlemiiin Turbn-D-VIA- 
CPC dei universellen Datenbank lur alle CPCs um Diskellenlaui- 
werk. 

I .1 >.i DATA CPCIm'i Ihnen. I i'cimcIu und Ordnung ui Ihn- Daien 
zu bringen I in kurzer Ulisk au: einige I eislungsmcikmale gefällig ' 
Bille sehr 

H I nivcrscll durch veränderbare l-.ui- und Ausgubemitskci 

■ Deutsche 1 'miaute mit fJIN-TristaturbcIegung 

I Blitzschnelle Suihlimktkiiieii dunh huk-slehler 

■ DaieikapazilUI Bis zu Ml verschiedenen Feldern 

■ Bis zu I" Felder gleiehzcitig allI dem Bildschirm sitlllbjr 
H Besonders schnelle uiitl umfangreiche Somerlunktion 

H Fageiie Disketten Fm maiicrrmitmc mit K'vondcrs holici 
kapa/itäl 

■ /weiteiluug des Bildschirms ui Stiuus- und Arbeitsfeld 

■ Komplelle DmckniulUKII. auch lur Flikcltendiuck 
Besl.-Nr. 2 M.I>M (•■>.-'' 


Für Profis: CPC Special Offer 2 

Vier Programme der Star-Division im Sonderpreis-Paket 

Disktorl-Siar: I-estlbugssiarkc Diskette nvcrwallung mit hohem Bedie- 
miiigskoiiiloil und integriertem Disketlenmanagcr, Verwalten Atehi 
vieren. Katalogisieren Ihrer Disketten und Ausdiuck der Daten um 
Disksuri-Star kein Problem. 

Drugner-Slon Malprogninnn Zumkomfortablen Anteiligen von Bild 
schirmgrafiken Zur Bedienung genügt die venrnute fksintiir Aul 
Tastendruck werden Sie per Hillsinenil duich das Programm geführt 

Creator-Stur: Machen Sie llue eigenen CPt -Basic-Programme durch 
Tnckfilmseqttcnzcnmit annniencr Zeiehens.uzer.iiik interessanter. Der 
Creator-Star hielel je einen l-ditoc dir siebende und animierte Motive 
l Kulissen und Shape-Designerj. Die Editoren sind als Proerammgene 
raioren ausgelcgi und et zeugen Base-Code, der innerhalb Ihrer ei ge neu 
Programme weiiervrrarbeitel und eingesetzt wenlcn will Beliebige 



Faul schrill Teste lassen sich integrieren In einer eigenen Progratn 
nucrsprache lassen sieh Shupcs miteinandet verbinden und Kulissen 
übereinander legen 

Sutr-Mon Professionelle CPC Piugtanmiiemng ma Assrmhk'i. Divas 
seiiililer und Mott not Das System Ixisitzl einen eigenen Diskt-t;vmim 
nilur und Editor. CHIC Trncc-l-imldiou. kann Bieak|H>int.s setzen und 
Bankswiiehuig vornehmen. 

4 Programme liir t Pf -Profis im Paket: Besl.-Nr. 205. DM 5*».- • 


►Issir sleärr schon emd nif ulr !l»;w» 

|le» l|l «») -"'imto; flir Cwlrxt CK . Ich il*d». zir uwdm unr «*r,s* 
i?sf mtnnnndrr kdi» 6in« frctrmn suhl « säum owbcfc <iii vtn iw. 
ba 4 Mt von Biner iWftitfirtJeHsnj *nwrt»t. 

Ms laltm Ulr len» * flenn tä tigen pMudo-WSDIK' <ro jlmke inten vir 
«f iw 3-Ilt-#Uri u ruck iir-n Midien, lÜKdinoi'noiS uimt ui« »it 
jwn-tijrmi (er KnsiffissM« Mtrdtn innnti mn Sei fttsirs-lwl ternti 
iie Vorteil* eines &*U**-IHhrDcks senlulen... 

lürim nickt nin sirk's nickt ieiüt evd l«t sieh »ufl 
die ntlSllr Zu», min» I» »udu« 2lsnrr di- Int 
nd ftrktit :n verkrinjt.' 
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ConText CPC: die alltagstauglichc 
Textverarbeitung für jeden CPC! 


L-asscn Sie Ihren CPC nicht verstauben! Mit 
ConText CPC erwerben Sie ein Anwendung» 
Programm, das eine überzeugende Leistung bei 
einfacher Bedienung bietet. Die ausführliche 
deutsche Anleitung macht cs auch dem lechni 
sehen Laien möglich, schon nach kürzester Zeit 
Briefe. Referate lind vieles andere mit dem 
Computer zu schreiben. 


Sen seinem Erscheinen I ‘«6 ist dieses Schrcibprogiumni lut den CPC 

viele luusenvl Mal verk.mil wonlen Die l mvci/ung auI den PC tanl 
iiizxvisehen sogar sechsstellige Beuulzerzahlen. Kein Wunder: Con- 
r«l im ein simples Programm, ohne .Schnörkel und unnötige Komplj 
zienhcilcn. Mau kommt schnell damit klar und erivichi das Ziel die 
tägliche Senreiharheii zu vcrcinlaehcn ohne l-inwege: F.v ist ein 
Piogramm. das in erster I imc nicht o.-u "l-'ieak " und S|iez.ialisten, 
sondern den Piakliker jnxpiiehl. Den Studenten, der seine Releiale 
ohne Tipplelilei uogelsen mochte. Den Planer, der seine l’ivdigiem 
wflrlc sau her und wicilcrvs'iwclldbar ahspeieheru und archivieren 
iiiiiehte. Ihm VeromsvorstaRil. dcrdasneiic lahiespiograiniu jushang- 
leil zu Papiei hiüieen will, l.nd natlirlieli den Programmierer, der zu 
seinem Wokeine unspnichende mul gut lesbare Dtikumentaiiou liefern 
möchte Also: Man könnte sagen, dal) Coiilesl »o etwas wie dei 
“Küfer" unter den l'eMprogi .imiiien ist es läuft und Liult und lauft.. 

Dari die Darstellung dei Tesie darlilsvi hinaus jikIi mich Ivsmders 
ansprechend im und alle Pteigraminlimktioiieu erfreulich Holl arbeiten, 
isl das VetdictLst des Pisigrammaulois Mauhtus I 'phoff, der sieh auch 
durch andere Piojckle ( "Cop) Shop «las Software ['Apenineni 'l 
einen Nanvu ui vier CPC Szene getmu.lii hat. 


Mit ConTcxl CPC macht das -Schreiben richtig Spall 

I Einfügen, Flictücxt. Blocktoinialieruiig und Kopieren aal 
Tastendruck 

■ 2S kByle Icxtspcicher. ausreichend liir minck'slens luir 1 >|\ 

A4-Sciten 

B Meluspallige texte und Kopieren lur besondere Aufgaben 
fl fextblix ke von Diskette oder Kassette nachl.ivlh.il und jeder 
zeit im Text zu pla/tcicn 

fl Drucken im Himerglund. während Sie weiter an Ihren lexteu 
arbeiten 

H l-x htbdd Zustellung der Sclmltani'ii Verenißcit und 
tnicrshiehen 

H Ins lexlprogramm micgi icrlcr läschenrcebner iliHl Kalender 
B Variable Diuckcranpassung mit l instellnniglichkeit in Iahe: 
lenfoim 

fl WoidStai kompatihlc liisliiuirkomniaiidos fut de: leichten 
Umstieg 

Besl.-Nr. 207. UM 

















Das Beste von RE-Software: 

Ausgewählte und geprüfte Qualitäts-Software für CPC 


Jetzt exklusiv zum Lächel-Preis beim DMV 

Wie wä r’s de nn d am it: _ 


knappes Dutzend Schlüssel zu finden. Das Spiel bestiehl durch 
blitzschnelle Bild Wechsel uji.I seidenweiche Joystick-Steuerung 
llulhln/cr I ine plil free Mischung aus "Pai Mm' uikt "Snlm-BrnC 
mit liebevoll gestaltetet Cluuucltfr CiinlTk 

l-miasir' “lierrsclies" Jump'n-Kiiil-Spiel mH Hori/i’imU -Scrolling 
Für I «Hier 2 Spielet simultan 

Siift-Itall Hin Hlippet um -r.p ' erscfiicihnien. zockigen (ii-rauschcn 
I ii' alle, denen Ar/t oder Ehefrau den Besuch der Kneipe .nt der 
I cke verboten haben 

l>n« Junes. Um grafisch .udgepepptes Bbrsctispirl Im EDV Milieu 
Kaulen Sie -M.in, IHM oder Anwrml machen Sie Millionen oder 
verlieren Sie Haus und Huf. 


Pcrsonliclikeitstest Opsisc gelungene "Selirslaiiulvv' für ... r 
kleinen Psychologen Sicht ganz ernstgemeint. muchi uberSpali 

Skut Hilles dei raten Skalprogiaimnc. Fehlen d.-i zw ■ :e und .Irin 
Mann lür eine zünftige Partie' Dieses Programm liill'l aas. Vtifwct: 
tilge Farbgrafik 


Eine Sammlung Ix-soinlcrs attraktiver Spiele, pro 
fcssionell programmiert und mit delailreicher (ir.i 
lik ausgestattet. Kest.-Nr. 194. DM l‘>,-' 

Killer Kiiniherl F.ino dei witzigsten KcaMkmsspicle für den t '!'< 
tciupogeladcii und mit deljilreieher Faibgraftk Verhelfen Sie Kuni¬ 
bert da/'-. Spnmg lut Sprung die Burg seines Hr/feind' ZU sh. i nen 
Voisicltf: dieses Spiel maehl stielilie' 

Panik im l.abyrinlh l-t was Inr I reuode rcpUcmer IleklJ. Milte 
ln einem Riesenlahyriiilli mil lienmi/nppcliidcii timl umher« ischen- 
tk'it I nergsefressent erwacht Ilm.* Spielfigm. I ad ;et/i L’ill es. ein 


Memntrnn Die schönste 'Memory' Vcrstnt die s je aal entern 
X Bit .Computer gegeben li.it Sie spielen simultan gepe .k-nCon 
puieroder einen menschlichen Gegner mul können das gegtleii»ltc 
Spiel iiur.li Ihre eigenen Spiel/itge manipulieren. I n-les (ieddclunis 
und Reaktion »erden so gkheltemiaUen Irtuinerl 


Q-Bert 1 Neue Versio:, des helH'iisssertrii kl.issn. um Perspekü 1 
I ItlplNpiels. Viel I ciiuL viel Hin. 


The Flayer’s Dreum Vol. 6 

hin Paket besonders anspruchsvoller Spielpro 
gratnme. die nie langweilig werden mal Hott und 
kernig, mal tiiftelintensiv best.-Nr. 195. DV1 19.-* 


eine Bahr lui einen Space Sconiei gclstul Sein Solle Spiclntoi \.t- 
tiim, detailnnche Grafik. Mil l esel-Editor 

Super Knhik's t tthe Der bcrilhnne "Amber» lirld" aul dem CPC 
Bik1»liinn Mil Spiegeln furdie verdeckten VVi.ilefseiseri I , Frettn- 
de verzwickter Komhaiatkiu 

Mich Vttuck Auch das klassisch. Ualletspicl liit die Vlheilsp.n.v 
darf mehl fehlen. Dev.- "Space Invadcrs " Version uhcr/ctigi dutch 
ihn? liebevoll gesiahelc Grafik 

Oik I empöre»Ins P-.iem.nr arliges Aelumspiel mil niedlich am 
Miictlci. butterweicher Spule-Grafik und vielen, vielen Monslcm. 

Dallas Oil Management <.»"-ellsclinUsspicI lut ms zu J Personen 
Ret/voll dtiK It inctiMtvIrr vers. Ita. hiebe Transaktionen 

Kt-ptinilnr: I lotles laklik-inid Actimt-Spiel mit larbtgcr Clutraehtr 
Grutik. Beltenscheu S das Selll.icltlleld'- 1 

(iardner Spiel Koniliimiiioi st ungesagt lici diesem Spiel tut: 
Vekloieti Diagonale senk- oder »aagerecltlc Reihen von Siemen 
«enteil auf «nitrat Spielfeld munipulien. I Isvas für lültlcr 


Puzzle - 
make it! 


Neun verschiedene R 'fit - J- Amo 

SehiCbe-Pu//les 

/um Entspannen; 

von den ’Uluist- 

husters" über Co- 

nun und Ohelix bis E 4 

hin /um Madonna- _ 

Porträt. 

255 Schvvierigkeits-Siulen. Testen Sie Ihre Vor 
stellungskraü! Best.-Nr. 196. DM 15.-* 


Snko-Ban Conslructor laue Hetaustoidening Inr Ihre kl. , 
grauen /eilen Finden Sic die richtige Voigcliensweisc Ißt jedes 
Spicllevel Mil Itildsclurnt-Edilor zum l Icl.illen und 'Vhsjs-e her*, 
eigcitet Hovels l'iiiil I evels »erden nidgeliefci' Achtung. ahsnluio 
Sucltfspiel. dei KlYefcl ist "I emmings' ähnlich! 


Air Imme ( nnlrnl Knoidiineivii Me den I uriverkehr z« . 
acht eimipdtxeheii I Inehafettl Verhiüdcm Sie /usattmieitsld ’..-. in¬ 
dem Sie den Piloten die ncftltgen Itiüirtiuitiorten gehen Auliegeude 
Simultttion im Grafikmtxlc 2 


Irotilile in Space: Strategie mul Tempo Ir einem l'av/iiticu-i.k" 
Spiel vereint Ute »ird nicht geballert, somlent mil kühlem Kopl 


Ivpoitraph. Mit diesem l’.'oguiitm eniwerfeti und vcratlteuen Sie 
Citalikschiilieti a.il dem Bihlsthirii- Per etngehaulet ll.udetipynnt 
inte liiüi sielt du Schrlflkunsi auch 
/u Papier bringen Fieies Skalieien 
uud Posiliomereii <ler Scitrill/el 
eben Hm komplelter Font im''We 
slent-l.tH'k" wird inugvlicferl — 
ilutlül Sie {deich loslegen kdiinen 

Vluüürainer Hin koniltuluhles 
Hem-. Übungs- und Test Pro 
gtnmm Itn K-heilige Multiple. 
nioice-AtifgalK-ii 
beispielsweise l Ulirerschcinlragen. 

Prüluiigsuutgahen, Checklisten 
o.Ser Psvelto-Iests. Hrgehtusprolo 
Wolle s|n-teiletbat. /eiltahiitemllx-r 
prüfutig ehigcltanl. 


Iliu lnmmt Verwaltung aller privaten l-untiizen .mi k.uilmiumisi s-i 
Basis mit allein Komfotl Komptelte t.hetsieht über Aktiva und 
Passiva Koiiiencahmen mit Insgesamt 
2X Konten .tuclt Woilpapictc utt.1 
Ophotieo. Steuetn (lehtihren, Vh 
schtvthutif.en urul /tnsen »culen et 
faUl, Jahivsabschluü. DiiiekerousgaK- 
für Gesaint- und V'erinhgens 11 hiasshI 


l-.iu AnwetHlerpakei l iir kühle Rechner und f reunde 
des geschriebenen Wtnles. I$est.-\r. 265. DM 19.-* 

Festmaker Hm ,-mlaei :s JeMvcrarlx'iiunB'programm zum Briete 
schreiben Brlelkupl gesciiidett etfaBb.it, Rlocksalz, Datei Maiingc 
einstellbarer labulatot Atilcithivilc bis id /eichen. Deulscfie 
Schrcibmasc Innen-1 ’tMiUurhclcguiig mit Dl V/cichonutl/ Haste- 
l'mgr.iintiiierei kiimieii die Rouiincu Hur deulsclie l .'miaute und li 
imskoppelit und tu ihre eigenen Ptogratntiic eitiliiiuleii 

Paperitiakrr Hm Mim Dll'-Pragntinni Ihr die Schaler- oder Ver- 
einszeilung. Mehi spahtgei lest. Schlagzeilen und /eitungskopl las 
seii sich frei aul der Seite plazieren l'inlhchc < leoineinegr.il ik litt 
/eitunpskupf Kopie. Schlagzeilen und Vitikcl gctivum speie' .:ba 
Ausgalie liir Hpsou koinpulihle Diackei Mir einer Demo Zeilmigals 
Beispiel 


IBS ESCHm<.E tlHkS 


frei u-td unsrbundda 


SondmuttuhF D.f.91 


llinishaltsliilan/ | -lassen Sa- |!v 
liiufmden Vasealvii und eelk''i Sie 
fest, insvele'laiit Bercicheadie Koslen 
htttiilc am schliiitmslen wfllet I her 
sichiliche l'abcneiidaisiell'ung 
hlllzse Imeliei ('Ivrhhck übe; die fi 
iiaiizielle SiiualuHt Im luul'citdcn Vlo 
itaL KinUerletclil.' Meiiustciicnmg. 
Druckcrausuahe 


FRFIBirR FAlLPELZE [MLASTLT IILNDSTäCF 


Codex Vol. 6 

Eine besonders anspruchsvolle Sammlung hilfrei 
eher Anwendungen für verschiedene Lebenslagen. 

Best.-Nr. 266. DM 19.-* H 


lei imnKalender Sixielteit Ith |cden lag einen TcMbildsehinlt 
Vite It lür litgcbuch isk-r IlcsuehsprotokoUc geeignet. Menügesieii- 
trt, tun ife-utsclu-n limhuile-n. Ifruckeransgahe. zahlreichen Hdttor- 
lutiktjoneii. Ililfcbtldseliinii 


lief Et zeug! Basic Code- flu die Vor ccc-ttdiuig iie-r Sounds nt eigenen 
Programmen. Demo-Meltnli.- zum Atistesi. -, ongeh.ni: 
FuKball-Venrallung: Von ik-r Bundes' , ä a bis zur/»eiten Ku-isk'a- 
sc dieses sein umfangiciclic Ptograniiti ver»allet alle l ul.lbalk'r- 
gelsuss; kotiil.niahel und erleichtet; I tppeni die l 'hcrsiehl Freie 
Hingabe untl Abspeicltent von I.Igelt und Spielpklitetl Das Pn- 
eraiiitii iibenrag! die einzelnen Paarungen m die Hrgebniseiiigalv 
Die Talvlleii lassen sieh au/eigeu und aut »fern Drucker utisgolvti 
Uml'ungieiche stafislische Auswertung. 

nolto-Ciimiuamlcr Hilauhl die Au'slellung mul Cie» nmko-ii-odc 
jeweils eines Service*.Scheins der Spiele "6 aus -W und "Spiel 7? 

Inr mehrere Wochen llx-soodcts pteisgmistige ripptneihislei 


Vlagie Svnlltestzer Hill! 

kurven and Tunschwcbuii- 

gcti erzeugen für ausgefeilte 
Soutkls mit dem Somulchip 
des Cif, Cualiseli, Daistel 
lunedet lltillkurvett..Schritt- 
fur-Schrill-Hdliieren dtireh 
muueiisclic Hingabe utog 


Diskellcnstslem Die inggesuchle 
"eiet legende Wollmilchsan" Von den 
stand.ml Datei Operationen!Forma 
heren. Kopieren. Directory-Maniptt 
latiotk-u) his hin zum Diskeilen- 
optimierer. Filc-Reaklivierei und Rc 
lokalorisl alleseingcbaul. Eine Werk- 
bank liir tlie tägliche Arbeit mit 
Disketten und Dateien Hin eigenes 
Bcinil/crinenti lälh sich etnkhitkcn 
ent.- Overlav Datei mit ent sprechen 
der Schnittstelle ist dabei 


ProgrannsaHnhmg 

Der Datengarten 


Diskettenhulleii-Drucker Druck! Inhallsvet 
zeichitis. Archiv nuttutter und Dalum aul Müllen 
lür ' /oll-Diskclten FUl Epson kompatible 
Dntcker 


3-Zoll-Diskette (’euoijfUMjui H3 

ajnqjos 

a*H uo,n e chs eg 


Vulkleber-Frlitur An Herstellung pinressu» 
neller. klebclemgei Elikcnen thi 3 Zoll-Dis 
ketten. -Se-ht aufweutiiganfgemaebl:"Wltal you 
sec IS »hat you get" Fett , Kursiv , Vtagei 
schüft, doppelt holte. Isreile. untertincheiw und 
kopfstehende Schrill Glekhzeiuge Verwen¬ 
dung von ' /eichetis.i'zen moglleh Vln eilige 
bautom A-kltetHal/ Editor Hut Epson 
koinpatihle Drucker 


Platine-Masler Ein seht aulwettili 
ges l'ntgrnmm zur Gestaltung von 
I eileiplattcn Joystick Bedienung 
mit kotts. l udenkieuzcuiMir. Masken 
Int IC Fassungen aul Abruf. Be 
schriflung. Kopieren von Bereichen, 
ihwhaltharcv lldfsr.istcr Diuckaus 
gäbe in zwei < imlktn. 














FAst BAsic 
COMpiler 


Der Turbo-Antrieb für Ihre 
Basic-Programme! 

Haben Sio sidisdioti iminei pewünsdii. da II Ihre Hast,-Programme aul 
«lern CPC schneller laufen? 

NF« «lern FABACOM-Hasic-Compllir «ml dieser Wunsch Wirklich 
keil Compilicilo BnsK-Ptogrammc brauchen weniger flau und lau kn 

sduu-;ler »h «eilsienictilständig den Basic-Intcrprclrrals 'Klm/am 
Bein" m n dabei haben mlisscn. Schütten Sie den Code Ihrer Programme 
vni dein Zugriff Neugieriger, indem Sie M auch inen Programme daraus 
machen’ 


I Voller.Sprashmulaiif von CK Basic I I ihftrVftUSt 
B Die ciinipilierien l’iogiaminc sind auf jedem ( II lauMaliie 

■ Separate Conipiliciuilg um Piogramimcilcn 'in \:i.hhnle,'Ki 
grau iure 

B l-asl alle Befehle von CK"-Basic I auch füi CK 404 

■ l iilerslüt/ung von Inleger-und FlieBkoiiima .Ainhmcük 

B Kompatibel /ur VorievIVnpheiic einsehließlieh RAM-Disk 
B Alle CP/M Dienstprogramme können wcib-ihul gemilz; «erden 
B Deutsche Bcdicnungsunlciüing und Bcispidprogiaitmic 
BesI.-Nr. 209, DM 49.-» 



für 

CPC 


Knovv CPC 

Interessantes Frage- und 
Antwortspiel für die ganze 
Familie 

\us einem Fragen Hindus mil iinicrsclnedli 
ehen Wissensbereichen sicllr ein lustig nm 
uiienes Kerlchen Quiz.lragc» Bis zu 4 
Spieler lUatlien mil. Wahlweise Anpassung 
an (inin- oder Farbmonitor. Editor Ihr cige 
ne l-'ragcnsitttc dalx'l 

BcsL-Nr. Ulli. DM 29.-* 






Zwei Super-Spiele mit zwei 3Li¬ 
tt rillen für Spielspalt zu zweit 


3I)-Light Cycle 

Das helichtc "I iehtreiiner " Spiel aus dem Htm Ihm" in 
einer holographischen Version für zwei Personen! 

3D-Labyrinth 

Durch das AiuglyphCn-ilologi'a|>hic»crlal!ivn wuchsen die 
l.»byrimhw:indc quasi aus dem Bildseliinn heraus, 

Für alle CI’C 464. 664. 6128 mil FarhnuNiifor. “.flJ-l.ighl 
Cycle" kann In 2D Darstellung auch aul OrUnmonnor ge 
spielt werden. 

BesI.-Nr. 1369. DM 39.“ 



Fantastic Four 

Vier Superprogramme zum Minipreis 

Ctithdgnr Weltrau ul Action 

l'erraimut I Science-Fiction 


StarTest 

Action-Adventurc für alle CPCs 

BesI.-Nr. 104. I>\| 19.-* 


Fruit* 

liriuiiitut II 

Hest.-Nr. 1011.1)\l 29..• 


- Geschicklichkeit 
Tcxtads emure 


Special Offers III 

Neun Spielprogramme für alle CPCs 


V/<iW imil iici /MUt'c/slah 
Dir Pyramide 
Puz'Je 
Black Jml 


— Anrüdc- Attvcul ii rx* 

— Itfxiabcnteucr mif Aclion Eteniciiien 

— /crarcuung für den Feierabend 
das klassische Kartenspiel 


Außerdem (hum. Memory . Lubyroith. /.u k-/uck, Shilomjuhn 

1 Disketten. Ilcsl.-Nr. 107, DM 3V,- 1 * 



Game ttox 3 

Für jeden das richtige — vier ausgesuchte Top-Spiele für CPC 
B Alphajet: Weltraum-Aetionsptcl mil tollen Effekten 
B Mtjomania: -Scicncc-I iciion mit ganz, neuer Spielidee 
B Kampf den Insekten erlebnisreiches Gcschicklichkcilsspic! 
fl Funhounret Farben hohes Spiel mit eigenem Bild-Editor 
BesI.-Nr. 1012. DM 29..» 


Der Schlüssel zum Maschinenraum 

Kin CPC-Mega--Sampler, voll mit Werkzeugen 
für den Assemblerprogrammierer auf dein CPC 

liier linden Sie die besten In* aus neben fahren “PC Imemaiionar 
vom RSX Managet Uber den Speie hei- Debugger bis /um kompletten 
Assembler. Ob Sic «ei AMSDOS oder CP/M arbeiten hier ist 
bestimmt auch für Sie etwas dabei, dal! Ihnen Zeit und Muhe sparen lull-. 


Aus dem Inhalt 

H M.ischinenspraslieiuomior mit Disassemhict 
B RatiKlisk Programm für 61 ’S nt Assembler 
B Turbo-Keloctnor das OrganmalmMgcoic lur ilen Speichet 
B “FASTM": Beschleuniger Ittr Mode I Bildseliilinausgabe 
B Maschinensprache-1 liHtypukct "Laurcl II". Linken. V.-rsdnc 
ben, Dokumemiercrt und RSX-Managemcni 
B l.ülity lur Pseudo Multitasking 
Insgesamt über 30 Programme. Besl.-Nl. 263.1»\l 49.-” 


CPC-Fraktal-Generator 3D 

Vom Maschinensprache-Virtuosen Matthias! phnlf 

Erleben Sie den Zauber mathematisch erzeugter I nndscmtflcn! 

B Bht/sehnelle l iralik Erzeugung Det I rakt.il -GengT.rior t ’P(' 
wurde aulletsl cITi/ient in Asscitihler ptogrammien. Inlelligeme 
üeieeimungs Routinen sorgen für enorme Zeitersparnis. Sic 
können ziiscliauen. während sich die l'raklalcn Seen und Gelin¬ 
ge zugig oulbrruen' 

B MaJKlelbiOl- und Juli amen gc: mit automatischer Glattlings 
funldion 


B Stillenloser vertikaler Blickwinkel: wahlweise Siel« soll oben. 

unten, schräg und in der Totalen einzeln und stufenlos ein Stellbar 
B Bequeme I hutdhabung über Pulldown Menüs mit deutscher Be 
ilut/erfflhnmg 

Vier ßihlei können heim 6128gleichzeitig Im Spcnher gcltallrn weide». 
Die erzeugten Biidur lassen sieh util handelsüblichen M.ilprogramiiicn 
«citcrvcrarhcilen und in eigenen Kog rammen als grafische IlmtergrUn 
tle entsetzen 

Durch tnekreiche I ärbr.islcrnng erzeug: der Fruktal-Generator aul rlcm 
( PC i: Mode I zehn verschiedene Farhtone gleichzeilig. 

Best. Nr. 211. DM 49..» 









Spielend 
den CPC 
beherrschen 
lernen 


Insgesamt 17 Programme, mit IXOscitigein deutschem llurid buch. 

linnlmustei Sic laten cm Wott. das Ihr CPC sich »ttsgedacht lim Darm 
tat der Rechnet Wer braucht »eiliger Versuche? Sic werden staune 


tt« Spiel des Lehern. Der CPC erzeugt mich den Regeln des natürlichen 
Wachstums phantastische. kristalline Strukturen. Alldem Sie dH- Vt-raus 
Setzungen und selten S„ wic neue, nie dugewesene Formen cnistelicn. 



W<» ifdri'i ttriheHgemill Mildem "Blute-l'iircc''-/Algorithmus dar! der 
CPC mi richtig Inslegen und spielt in dem afrikanischen Slralegicspiel 
Kal.ilta" alle Gegner an die Wand — oder können Sk- ihn schlagen? 



Koni Ir Uuiijifhitfi Fine gul .lusgcslalletc Simulation versetzt Sic in die 
L.teceines Entwicklungshelfers. der eine Hungersnot ah/imemien sei 
Midn, Aber Ihre Mittel sind hcgrcn/i .. 

DcrCPC' ah Sinne ec Hin raffiniertes System von Sp io, zuglScwciluOgcil 
macht den ('PC zu einem last uiischlaghuieit Gegner an Gobang Spiel, 
der Ihnen anfangs vifligc Niederlagen best her cn wird. Das Programm 
isl naiurlich dennoch /u schlagen ober wie? 

t)n Computer lernt; Erleben Sie .-in Paradelvispiel tül "Künstliche 
Intelligenz"; Das Programm “Mmiscbsch" ist lernfähig und wird um 
jeder Partie ein bißchen besser 

Das Okolnpe-T. sprnmeni IX-i Computer zeigt Ihnen m unimiener 
Farbgrafik einen simulierten Lelieilsrautn ntil Weideland Schalen und 
Wollen. Erforschen Sie die ökologischen Gesetzmäßigkeiten an! c. hat 
len Sie ein stabiles, natürliches Gleichgewicht 

Au8ertk-m: Grafik mH Kampte.xeu /.Men. Wnrdkeiieii-Kaisel. Gehern 
Hisse lies l'asculsclien Dreiecks 

Best.-Nr. 212. DM 39.-* 


Programmierte 

CPC- M Evergreens ,, 

/«ei Disketten mit er hielt Klassikern fnr< P( 4ft4. 604 und 
6I2X! Diese Piugi.-.mii e stellen .'uisgcuahlh lloheimukk' , i 
Ict/Kit Julue dar. jette» einzelne mil tont Arl etwa» ,m/ 
BcwXtdcros 

CP( -Highlights I Spielc-k lasst ker 

( ’i iw Ftlfthl (das echte "l >. Ictnk'r" l-c. Img k.-mmi , 1 'i 
Xtiit! ihre IVeissirispiel in tln-i Dimc-isU'iiciti. OiIuiii • Wim 
ischnelles Ai imil Spiel mit |j.-\cl-Dcs|gi,cn l'oink /•>.• toi ,. 

I '.press tspauneiiili’ Bomheif-.iclicl. i ,-/>/,, Ilulsstmnulvi 
i iesehickl|cltkeitsspieli.Äc«ii./ybi/ii/n i Tacin.n Sal'a sriillc. t 
S/w,, 7hu (Spüzen-Jump'il Run mit Sciccn Ediliir i. S, htm, ., 
(Ciesehiekliehkei|ss|)iel mit Gewöhnung' I irek-.i. .-' I) Mul, 
(echter Ile' Schlagen Sa- .len t 'ninpuler -i S/w ehlmei ■ i I) 
Seid tu l'ieiwm mil Spa/eii (iiald. IteslellNr. 2«'». |»M -19. 

Cl'C-llighlights 2: Anwendungen mul I nlnies 

Koma-Cups Haltiges l'rack Analyse- und kupierpmgraiiin,. 
Hase t'rimei iKieallv-Paket lürGrußkaneii im.l Sellengestal 
Hing), liigil T.slcnsiim '.Spia. hs- stthw.uemaßig digital.sieivn 
mil dem Daleiirectmlcr, Muskensp n. i.iloi illtl eigene Ahlra 
gehildschimiel. Joysiick-Woncc tSlick-Emiilallim Im Cm*m 
tief toll. Xhm.lns (Disk Clililyi. Iiilennpl l/nsik iinil RSXeni. 
Sirreit Comprrsso’ IN[X'.iehei)il.i:/spmetr. leuiis/rr lyrut MS 
DOS zum CPC und zuriitki. Sa/iei iiioii | Diskcilemiioimoi , 
Drsigiiri IZoelH-tisiü/geiieraturi Ilestell Ni. 27(1. DM -l'W- 



Futter für PCW -Freunde: 



Jovce-Bild-Editor 

Zum Zeichnen hochauflösender Grafiken 

Der J<>\ ee isl mein als ein Texlvcrarheiliingssysicm! Mil dem Joyce- 
Bild-Fuliior gestalten Sic koinlonabci hochauflösende Grafiken hm 
den diese in eigene Programme ein Oder gehen sie mit i!ent 
Joyce Drucket aus. 

Der Joycc-Iiihl-Ixhtor erschließt die Gialikfühigkciicn lhn:s Joyce 
Exaktes, pixclgenaues Zeichnen durch Normal- und Feinntodus. 
Lösch und Invctiierungsfiinkiion m beiden BcarbeiluiigstttutU.ein¬ 
fache Integration Ik-Ik-I nger Texte in ilie Hildelemente. Dptinn zum 
Mischen von fertigen Bildern. Ausdruekmögliehkcit nur Randhe 
Stimmung aut dem Joyce Drucker, komplcllcr QacHtcxi ln Turbo 
Pascal XO wird mitgclicfcn. 

.Iiiyce-Pnigrammsammlung 4: 

Bild-Editor, Bcst.-Nr. 219. DM 49,- 


GCPM — die grafische 
Benutzeroberlliiche für den Joyce 

Schnell, bequem und komfortabel 

Der ganze Komfort moderner Ciunpiiterei — einschließlich 
Maustiedicnung. I hr. Taschenrechner. Schnitlslcllcnstiucriing, 
Passunrtabfrage und vielem mehr. 

■ Steuern Sie alle I unktloncn Ihres Joyce wahlweise itber 
Maus oder Tastatur 

■ Arbeiten Sie um der Darstellung aller Dateien in Tabellen 
form (ähnlich LocoSeripti urnl den Slandardfunkliotieit wie 
Kopieren. Umbcncnnen und Uösehen. 

B Aul bis zu drei Lauf werken stellen Sie Parameter. Suchpla 

de lohne SETDEF) und das temporäre Laut werk beliebig 
ein. 

■ Verändern Sie Dateialiribute. und rufen Sie Programme di¬ 
rekt von GCPM aus auf 

■ Nutzen Sie die Funktionen zum Verschlüsseln und Kompri¬ 
mieren von ASCII Dateien sowie die optionale Passworiah 
finge. 

■ Sparen Sic /eit durch den integrierten Taschenrechner mit 
Zwischenspeicher. 

B Verändern Sie l)c he big die Grundcinstcllungen der Seltnitl 
'teile, de» Zeichensalzes, der Tastatur, iler Maus, der Disket- 
tenlaufwetie untl <les Druckers 
I Ein Scicensavcr stellt den Monlloi hei Nichlfiebraueh ihm 

kel. 

Mil d-.-uiGCI'M-Slanerset als Insiallationsprogranununddem MKui 
ligen reich Mükleneri Handhuch Im Handumdrelieii bringen sie 
den Komldii der "Großen" im Handumdrehen auch auflhren Juyec. 

Innc-Pnierumiiisaitindiing 7: 

Grunsehc lleniitzeioliernaehc, Best.-Nr. 222. DM 69,.” 


Joyce-Busineß-Paket 

PtUsentatiunsgrafik tinrl Jnbellcmcxlverarheitung 
(iSX-PItH -in Lösungflir Bnsinep-Giafik an/'iteni./ovi ,- 

Das Programm Icrtlgl Kalken und Kunendiagnimmc an: es erlaubt 
auch die licrtacllting von Strich und Tcxlgrafik. Die Bemu/ertuh 
nmg i« mcnugcstcucrt. Die l'cnigvn Ciraliken lassen sieh aui llild- 
schirm und Dmeker auscehen 

/• elitloh placiert Ihre Tr sie mllliinrieiseinin 
B Komplette Meuiisieueruiig wie soll I oeoSeript gewohnt 
H Wald von Seitenlange. 'Zcüeitalistand und Tabulatoren 
H Individuelle liesiitiimung von Sehriljvtoiten und Seltrifluncn 
H Texulbcniahtne von UxioSenpt oder im ASCII l ortnat 
.lojee-PnigrainmsaniinhinE 4: 

Busineß-Paket, Best-Nr.217, DVt59.-* 


Joyce-Tabellcnkalkulation 

Die universelle Tabellenkalkulalion für alle 
PC Ws. Ob Monatsbilanzen, Steucrabicch- 
nung oder Kontoführung — mil diesem Pro¬ 
gramm sind Sie allen Aufgaben gewachsen. 

I I Besonders schnelle Beiecltuuiigsalgoniltmer, litril-.e l eklet 
weite. Übersichtliche Meniilühning und Abfangen von Fchi- 
einguben 

B Allt Rjttid eitigeblendelc Fomtcl mit bis zu <>S tllogliehcu Zet 
eilen, eigene Befehle /tu Veiküi/ung der l'omteln und 
Expiuienliulausxl rucke 
Ju>e«-Programimammluii|t ft: 
lubcllenkalkulation, Best.-Nr. 221. DM 59.. 

Joyce-Sonderheft 4 

Restposten: nur solange Vorrat reicht! 

Aus dem Inhalt: 

B W-'ordSiar Vorttessetuttgen 
B Buiidcslieasimulalion 
B Pitlldowit Menüs 
B DiskeUemnonitor 
B H.uipIMddtc raten in I.OG() 

Hell DATA BOX t> Diskelleni. Bcst.-Nr. 3052. DM 29.- 


B llaideopy-Rouliru- 
frir 24-NuiHer 
B dBase Literolurvvr- 
waltung 

B iniv-msetics Werk¬ 
zeug zum VV-rnndcm 
s on dBase-Dateien 


Joyce-Zeiehensatz-Desioner 
und MGX 

/enheusiiri-Ih’sivne' Edhieien l.i/eugeii im.l \i,s|iekheiu m>u 
B ildsehiim Zeielieusiit/en Diuckeit von c-ifonn.itieUeu AM I: 
lexli'n , 11 He -1 CIVM Plus möglich viel ledig gestaltete A-ieh, n>,i 

ze imljefcnimfongv-illhulleii Honuspturr.imm z-.im I inslelle ■ 1.1 
Joyce-Sehtiuistellc und Taslatur 

MGX. I-Ullklionen und Meßwenc gial.-eh aul Bditseliirtn tiiul 
Dntckct utitliiitl-tisehe Grund- nn.l Somleilullktiotui, .sind d.u 
stellbar gleichzeitige Darstellung mehicrci l uiiklit'iicii und Mett 
teilten - DmekentiLsgtdv der Ergebnis'. Im Grnlllöinuil imighch 
- liehen einer Kliimtnc'ivbetie isl eitle Meiiiöty-Eiii'Uitin mlegrleti 

.lovcc-Prognimmsainnilung I: 

Zeieliensalz-Designer und MGX. Best.-Nr. 215. Il\l 49. 


Joyce-Datenbank 

Die ideale Datenbank für den Joyce mit mini 
malern Diskeiteu-Speicherbedarf. Dennoch 
bietet Ihnen die Joyce-Datenbank maximal 27 
l ; clder pro Datensatz. 50 Stellen pro l eid und 
bis zu 35.000 Datensätze pro Datei. 

Daten effektiv verwalten mit der Joyce-Daten¬ 
bank: 

B Bcm>ikIcis schnell iluivh Verwett.. dei k.AM-Disk tut- das 

Programm 

B Universell durch me Verwendung vo.-i S;;iudaixl-l >ir,-kizu 
gnltsdnteieti 

B Bctjueiu durch D.iieiittansfer von voduindeniru Dateien in 
neu angelegte 

■ Maske zum Iriliissen und ndertt von l ).,u-ii w<nl .uilninali'-eh 
generiert 

B Komfortabel ilutcli Wall-der Snnierkiil. i vii mlei Mein 
fachsornenmg 

B lasten mit auioiruitischcr S|Xihetn<inujiti-it,,'.g untl Spähen 
stunuH-n 

B Vutortgitisclvr Emltag Heuer Daten ,. ,,,» Ibsf.lln, II mpi 
menu 

B S|vicKiiulgeiiii:i.,l .vn.ihlu-, lli.-vk],.,i.i 11 il-k i zm W .. 
Verwendung 

lux ee-Programm vinimlnug 5: 

Datenbank für P< U S25ft und8512lliir l'l W 951 2aul Vnfr.igr-,, 
Best.-Nr. 220. DM 69.- 

























































Service 


AMS-Line 

Infos von den Werkstatt-Spezialisten 

Die Monitore, die zu den CPCs 464,664 und 6128 gehören, sind robuste Gerä¬ 
te. Dennoch kann es den einen oder anderen guten Grund geben, eine dieser 
“Flimmerkisten” mal zu öffnen. Vor dem Griff zum Schraubenzieher sollten 
Sie jedoch diese Folge der AMS-Line lesen -es lohnt sich. 


Fiir die “klassischen CPCs“ gibt es 
Färb- und Grünmonitore in jeweils 
zwei fast identischen Ausführungen. 
Der Farbmonitor CTM 644 und sein 
grüner Kollege GT 65 sind für die CPC- 
Modelle 664 und 6128 vorgesehen, die 
überein eingebautes 3-Zoll-Disketten- 
laufwerk verfügen. Dieses benötigt ei¬ 
ne eigene 12-Volt-Stromversorgung 
zusätzlich zu den 5 Volt, mit denen der 
Rechner gespeist werden will. Zu die¬ 
sem Zweck haben CTM 644 und GT 65 
eine 12-Volt-Anschlußbuchse an der 
Frontseite. Diese Buchse unterscheidet 
sie von ihren Vorgängern, die für den 
CPC 464 ge baut w urde n. 

Wer einen CPC 664 oder 6128 an einen 
der älteren Monitore CTM 640 oder GT 
64 anschließen will, kann dort die Ver¬ 
sorgung des Laufwerks mit wenig Auf¬ 
wand nachrüsten. Die größte Schwie¬ 
rigkeit könnte darin bestehen, eine ge¬ 
eignete Kupplung oder Buchse für den 
2,1-Millimeter-Hohlstecker zu finden, 
der sich an dem von der Rechncrkonso- 
le kommenden Kabel befindet. Die 
gängigen Buchsen sind nämlich zu eng. 
Am besten kauft man das entsprechen¬ 
de Einzelteil bei einem Händler, dem 
der CPC bekannt ist. Um die benötigte 
Spannung von 12 Volt abzuzweigen, 
baut man die abgebildete kleine Schal¬ 
tung auf. Der Innenleiter der neu erwor¬ 
benen Kupplung oder Buchse wird mit 
Masse verbunden, der Außenleiter mit 
dem +12V-Ausgang der Schaltung. 
Dann verbindet man die Masse der 
Schaltung mit dem Minuspol (äußerer 
Kontakt) der 5-Volt-Versorgung für die 
Computerkonsole. Zum Schluß wird 
die Verbindung zwischen Pin I des ver¬ 
wendeten ICs und dem “Kontaktpunkt" 
im Monitor vorgenommen - beim GT 
64 ist das der Kollektor von Q 502, 
beim CTM 640 der Pluspol von C 420. 
Hin und wieder werden auch die CPC- 
Monitore Schauplatz technischer Weh¬ 
wehchen. Oft läßt sich das Problem mit 
einem simplen Vielfachmeßgerät or¬ 
ten. und auch ein “Nicht-Profi” kann 
den “Patienten” mit einfachen Mitteln 
kurieren. 


Die folgenden Tips setzen voraus, daß 
der Monitor zumindest noch ein sicht¬ 
bares Bild bietet. Vorsicht! Aufgrund 
der in den Geräten erzeugten hohen 
Spannungen ist eine Berührung aller 
stromführenden Teile unbedingt zu 
vermeiden - es besteht Lebensgefahr. 
Bitte beachten Sic, daß wir keinerlei 
Verantwortung für irgendwelche even¬ 
tuell beim Basteln entstehenden Schä¬ 
den übernehmen können. 

Alle Arbeiten mit Ausnahme der Meß- 
und Einstellvorgänge werden bei gezo¬ 
genem Netzstecker durchgeführt. Für 
Spannungsmessungen sind isolierte 
Klemmspitzen zu verwenden, die an¬ 
gebracht werden, wenn das Gerät 
stromlos ist. Zum Bewegen der 
Einstellregler kommen nur nicht¬ 
metallische Abgleichwerk/.euge in 
Frage — beispielsweise eine dünne Pla¬ 
stikstricknadel, die an einem Ende in 
Schraubenzieherform gefeilt worden 
ist. 

Kleiner Handgriff - 
große Wirkung 

Am CPC 464 wird bei Verwendung ei¬ 
nes Diskettenlaufwerks der Controller 
auf den Expansionsport aufgesteckt. 
Verschiedene Hardware-Erweiterun¬ 
gen (etwa Speicheraufrüstungen) wer¬ 
den zwischen Rechner und Floppy- 
Controller installiert. Sollte es beim 
Einsatz derartiger Erweiterungen zu 
Disketten-Lesefehlern kommen, könn¬ 
te eine zu niedrig eingestellte Floppy- 
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Um eine Floppy-Stromversorgung bei den Mo¬ 
nitoren CTM 6 40 und GT 64 nachzurüsten, 
baut man die hier dargestellte Schaltung auf 
und befestigt sie im Inneren des Monitor- 
gehäuses 


Betriebsspannung im Monitor die Ur¬ 
sache sein. Wenn es statt 5 V beispiels¬ 
weise nur 4,8 sind, muß nachjustiert 
werden. Der entsprechende Regler im 
Monitor ist VR 501, gemessen wird am 
Steckkontakt des 5-Volt-Kabcls. Kei¬ 
nesfalls darf die Spannung 5 Volt über¬ 
steigen. da dies einige ICs übelnehmen 
würden. 

Sollte die Helligkeit des Monitors nach 
einiger Zeit zu wünschen übrig lassen 
und der Helligkeitsregler nicht mehr 
genug Reserve hergeben, läßt sich mit 
VR 402 beim CTM und VR 605 beim 
GT sicher noch etwas herausholen. 
Auch gegen ein unscharfes Bild beim 
Farbmonitor ist ein Kraut gewachsen: 
Die Schärfe läßt sich mit dem Fokus¬ 
regler justieren. der isoliert direkt am 
Zeilentrafo sitzt. Durch eine Bohrung 
auf der Rückseite des Monitorgehäuses 
hindurch ist er mit einem kleinen 
Schraubendreher zu erreichen, ohne 
daß man das Gerät öffnen muß. Die 
Bohrung befindet sich (von der Gehäu¬ 
serückseite gesehen) rechts unten, etwa 
5 cm von der rechten Kante ent lernt. 
Falls weiße Flächen beim CTM einen 
deutlichen Farbstich zeigen, ist es Zeit 
für einen Weißabgleich. Die hierfür 
vorgesehenen Regler befinden sich auf 
der Videoplatine, die unmittelbar am 
Bildröhrensockel angebracht ist. Hier 
die nötigen Schritte: 

- Mit dem Basic-ßcfehl “BORDER 
25”einen weißen Rahmen erzeugen. 

- Den Helligkeitsregler nach rechts bis 
zum Anschlag aufdrehen. 

Die Regler VR 801 und VR 803 bis 
zum Anschlag nach rechtsdrehen. 

- Die Regler VR 802, VR 804 und VR 
805 bis zum Anschlag links drehen. 

- Aul der Hauptplatine den kleinen 
Schiebeschalter suchen und betätigen. 
Er schaltet die vertikale Ablenkung 
aus. 

- Die Regler VR 802. VR 804 und VR 
805 so weit aufdrehen, bis ein waage¬ 
rechter Strich zu sehen ist. Diesen dann 
durch wechselseitiges Justieren der 
drei Regler auf klares Weißeinslellen. 
-Schiebeschalter zurückstellen. 

-Die Regler VR 801 und VR 803 wech¬ 
selweise so weit nach links drehen, bis 
auch der Bildrahmen klar weiß er¬ 
scheint. 

In der nächsten AMS-Line wird es um 
häufige Defekte bei Monitoren, um 
Fehlersuche und -beseitigung gehen. 
Bis dahin wünschen wir Ihnen und 
Ihrer CPC-Hardware Gesundheit und 
Wohlergehen. 

Ra i ner Dom bro wski/sz 
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Mit RSX ganz fix 


Der Plus bekennt Farbe 


Viele der stolzen Plus-Besitzer haben sich den Computer 
unter anderem wegen der neuen Features, besonders 
auch wegen der 4096 Farben angeschafft. Enttäuscht 
mußte man jedoch feststellen, daß nicht alle Fähigkeiten 
direkt unter Locomotive Basic ausgenutzt werden kön¬ 
nen. Dahin war der Traum vom Colour Personal Compu¬ 
ter, der der CPC normalerweise sein sollte. Aber es gibt 
noch Lichtpunkte. Unser Farbpack für das Amsdosder 
Plus-Modelle schafft Abhilfe. 


In der CPC 4/5'92 stellte die CPC Inter¬ 
national Informationen für Assembler- 
Programmierer bereit, wie der ASIC- 
Chip und seine Funktionen genutzt 
werden können. Für BASIC-Program- 
mierer war dies jedoch relativ nutzlos. 
Zwar konnte nach Lektüre des Artikels 
das Sprite-Paek genutzt werden, die 
4096 Farben blieben jedoch auf der 
Strecke. Nachfolgende RSX-Erweite- 
rung stellt jetzt mehrere Zusatzbefehle 
bereit, die allesamt zur Farbdarstellung 
unter BASIC verwendet werden. 

Will man den ASIC unter BASIC pro¬ 
grammieren. stehen jede Menge Hür¬ 
den im Weg, die zuerst genommen wer¬ 
den müssen. So sendet man zuerst die 
benötigten Codes an den ASIC und po- 
ked dann die entsprechenden Farbwer¬ 
te in den Bereich &6400-&641F. Die 
Farben sind nun eingestellt, jedoch 
wird diese Einstellung sofort wieder 
durch den System-Interrupt zur Farb¬ 
darstellung zurückgesetzt. Nachfol¬ 
gende Überlegung basiert nun darauf, 
den System-Interrupt durch POKH 
&6000.&FF zu sperren, wodurch je¬ 
doch die Tastaturabfrage gesperrt w ird. 
Und hier sind wir auch schon am Ende 
der BASIC-Künste angelangt. Was nüt¬ 
zen uns die schönsten Farben in eige¬ 
nen Programmen, wenn die Tastatur 
nicht mehr genutzt werden kann? Jetzt 
ist also der Assembler-Programmierer 
gefragt. Der Trick der abgedruckten 
Routine besteht nun darin, daß der Sy¬ 
stem-Interrupt praktisch ausgesperrt 
wird. Man ruft sie also 30()mal in der 
Sekunde über den Fast-Ticker-lnter- 
rupt auf. Dadurch wird dem Betriebssy¬ 
stem zuvorgekommen, da der Vi¬ 


deochip eine gewisse Zeit benötigt, um 
die vom Betriebssystem eingetragenen 
Farben darzustellen. 

Die Megacolour-Routine wird aber nun 
300mal pro Sekunde aufgerufen. Das 
führt dazu, daß die Einträge vom Be¬ 
triebssystem sofort wieder durch unse¬ 
re ersetzt werden. 

4096 Farben 

IASIC.INT 

Dieser Befehl veranlaßt das Programm, 
eine Codefolge zum ASIC-Chip zu sen¬ 
den, um diesen zu aktivieren. Das ist 
unbedingt nötig, da der CPC plus im 
Normalzustand nicht in der Lage ist, 
4096 Farben darzustellen. 

|MC.ON,<Fensterflag> 

Das ist der Kernbefehl des ganzen Pro¬ 
gramms. Er dient dazu, die Farbverw al- 
tung in den Fast-Ticker-Interrupt ein¬ 
zuhängen. Falls der Befehl IASC1.INT 
vorher nicht aufgerufen wurde, wird 
dies hier automatisch nachgeholt. Beim 
ersten Aufruf, nachdem der M-CODE 
eingeladen worden ist, werden alle 
Pens mit augenfreundlichen Grautönen 
belegt. Bei allen CPCs ist es möglich, 
alle Pens zurückzusetzen. Dies ge¬ 
schieht normalerweise durch CALL 
&BC02. Um diesen Call auch im neuen 
Farbpack nutzen zu können, w urde die¬ 
ser Vektor auf eine eigene Routine um¬ 
gebogen. 

Um mit dem ASIC-Chip zu arbeiten, 
wird ein Code gesendet, der den Chip 
veranlaßt, ein Verwaltungsfenster im 
Bereich von 400011 bis 7FFFH zu öff¬ 
nen. In diesem Fenster werden alle neu¬ 


en Features verwaltet, also auch die 
Färb- und Sprite-Daten. Falls man nun 
neben der Farbverwallung, für die die¬ 
ses Programm zuständig ist, auch die 
Sprites benutzen möchte, ist das nicht 
ohne weiteres möglich, da bei jedem ln- 
terruptaufruf das Fenster geöffnet und 
normalerweise sofort wieder geschlos¬ 
sen wird. Um das Fenster geöffnet zu 
halten, ist der Parameter Fensterflag da. 
Wird ein Parameter ungleich null ange¬ 
geben, bleibt das Fenster geöffnet. Je¬ 
der andere Parameter bewirkt, daß das 
Fenster geschlossen wird. 

| MC.OFF 

Wird dieser Befehl aufgerufen, wird die 
Routine aus dem Interrupt ausgeklinkt 
und der Vektor &BC02 wieder zurück¬ 
gebogen. Die Farbverwallung wird 
dem Betriebssystem wieder übergeben. 

|.VI C. INK, <Farbn ummer >,< Rot- 
Anteil,<Griin-An teil>,<Blau-An¬ 
teil 

Äquivalent zu dem BASIC-Befehl INK 
arbeitet auch dieser RSX. Der Bereich 
für Farbnummer liegt zwischen 0 und 
16. Die Nummern von 0 bis 15 gelten 
als INK-Farben, die genau wie beim 
(BASIC-)INK-Befehl numeriert sind. 
Nummer 16 ist der Border-Farbe zuge¬ 
ordnet. 

Die Intensität der Farben wird jeweils 
mit Obis 16 angegeben. 

Falls bei Verwendung dieses Befehls 
IASIC.INT oder IMC.ON noch nicht 
aktiviert wurden, ist die Einstellung 
erst nach Aufruf von IMC.ON sichtbar. 
|MC.BORDER,<Rot-Anteil>. 
<Grün-Anteil>,<Blau-Anteil> 
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|MC.BORDER,<Rot-Anteil>, 
<(» riin-Anteil>,<BIau-Anteil> 

Dieser Befehl spricht den Bildschirm¬ 
rand (Border) an. Die Farbparameter 
sind genau wie bei IMC.INK anzugeben. 


IMC.COPYTAB 

Um sich eine Standardpalette zu ent¬ 
werfen. die bei einem CALL &BC02 
eingelesen wird, kann dieser Befehl 
verwendet werden. 


|MC.NORMAL 

CALL &BC02 setzt die aktuelle Farbta- 
belle zurück, IMC.NORMAL die zwi¬ 
schengespeicherten Farbdaten. 

Marc Stiegemeyer/rs 


100 ' MEGACOL.BAS [11311 

110 ' CPC 464(plus)/6128(plus) [1320] 

120 ' (c) 1992 Marc Stiegemeyer [1937] 

130 ' & CPC International [2118] 

140 ON ERROR GOTO 190:PRINT [1891] 

150 IF PEEK(&8A00)=&C9 THEN PRINT CHR$(7); [7204] 
"Megacolour VI.0 wurde schon initialisiert 
!":GOTO 180 

160 MEMORY &8A00-1:LOAD"megacol.bin",&8A00 [3845] 
:CALL &8A00:lASIC.INIT 

170 MODE 1:PRINT:PRINT"Megacolour VI.0 ini [5310] 
tialisiert":PRINT 

180 PRINT:NEW [833] 

190 IF ERR=28 AND ERL=160 THEN PRINT"Megac [4763] 
olour-Befehle greifen nicht!!!" 

200 STOP [464] 


100 ' MEGACOL.LAD 

110 ' CPC 464(plus)/6128(plus) 

120 ' (c) 1992 Marc Stiegemeyer 

130 ' & CPC International 

140 MODE 2:PRINT" Megacolour VI.0":PRINT:P 

RINT"Bitte warten, checke Datas..." 

150 WINDOW 1,80,5,25 
160 MEMORY &89FF 

170 FOR adr=S8A00 TO &8C0F STEP 16 

180 PRINT"Zeile";(adr-&8AOO)/16*10+370;" 

190 summe=0 

200 FOR n=0 TO 15 

210 READ a$ 

220 POKE adr+n,VAL("&"+a$) 

230 PRINT"."; 

240 summe=surrime+VAL( "&"+a$) 

250 NEXT 

260 READ summeS 

270 IF summe<>VAL("&"+summe$) THEN PRINT 
" ERROR":er=er+l ELSE PRINT" Okay":ok=ok+l 
280 NEXT 

290 PRINT:PRINT er;"Fehler und";ok;"richti 
ge Zeilen." 

300 PRINT:PRINT 

310 IF (er<>0) AND (ok<>33) THEN PRINT"Ini 
tialisierung bzw. Abspeicherung nicht moeg 
lieh...":END 

320 PRINT"Abspeichern oder Initialisieren 
(A/I)? ";:CURSOR 1 

330 a$=UPPER$ (INKEYS) : IF a$o"A" AND a$<>" 
I" THEN 330 

340 PRINT a$:CURSOR 0:PRINT:PRINT:PRINT"Me 
gacolour VI.0 ";:IF a$="I" THEN CALL &8A00 
:MODE 2:PRINT"initialisiert.":PRINT:NEW 
350 SAVE"MEGACOL .BIN" ,b,&8A00 , S.209 : PRINT" 
abgespeichert.":PRINT:NEW 
360 ' 

370 DATA F3,3E,C9,32,00,8A,01,OF,8A,21,AA, 
8B,C3,Dl,BC,73,0769 

380 DATA 8B,C3,26,8A,C3,43,8A,C3,83,8A,C3, 
E9,8A,C3,4A,8B,092C 

390 DATA C3,CD,8A,C3,DB,8A,F3,3A,C2,8B,B7, 
C2,65,8B,1E,11,0954 

400 DATA 21,B1,8B,06,BC,4E,ED,49,23,1D,20, 
F9,3E,FF,32,C2,072D 

410 DATA 8B,FB,C9,F3,FE,01,20,04,7B,32,C4, 
8B,3A,C2,8B,B7,089F 

420 DATA CC,26,8A,3A,C3,8B,B7,C2,65,8B,3E, 
FF,32,C3,8B,21,084B 

430 DATA 02,BC,11,AE,8B,01,03,00,ED,B0,3E, 
C3,32,02,BC,21,05BB 

440 DATA CD,8A,22,03,BC,21,6A,8B,06,80,11, 
A7,8A,CD,19,BD,06B9 

450 DATA C3,E0,BC,F3,3A,C2,8B,B7,CA,65,8B, 
3A,C3,8B,B7,CA,0A53 

460 DATA 65,8B,21,AE,8B,11,02,BC,01,03,00, 
ED,B0,AF,32,C3,065E 

470 DATA 8B,21,6A,8B,C3,E6,BC,F3,01,B8,7F, 
ED,49,3E,FF,32,08D6 

480 DATA 00,68,21,C5,88,11,00,64,01,22,00, 
ED,B0,AF,32,00,04EF 


[1218] 

[1320] 

[1937] 

[2118] 

[4900] 


[1034 ] 
[730] 
[817] 
[2928] 


[552] 

[577] 

[309] 

[652] 

[665] 

[1149] 

[350] 

[567] 

[3249] 


[350] 

[4047] 


[743] 

[6617] 


[5219] 

[2339] 

[9369] 


[5866] 

[117] 

[4195] 

[3075] 

[2929] 

[3749] 

[2251] 

[2789] 

[2454] 

[2148] 

[3411] 

[3033] 

[2194] 

[2999] 


490 DATA 68,FB,3A,C4,8B,B7,C0,01,A0,7F / ED, 
49,C9,F3,21,E7,097D 

500 DATA* 8B,11,C5,8B,01,22,00,ED,B0,FB,C9, 
F3,21,C5,8B,U,07E5 

510 DATA E7,8B,01,22,00,ED,B0,FB,C9,F3,FE, 
02,28,45,FE,04,0858 

520 DATA C2,65,8B,DD,5E,00,DD,56,02,DD,4E, 
04,DD,46,06,78,06F2 

530 DATA FE,11,D2,65,8B,79,FE,10,D2,65,8B, 
7A,FE,10,D2,65,08D9 

540 DATA 8B,7B,FE,10,D2,65,8B,21,C5,8B,78 , 
80,47,C5,48,06,0799 

550 DATA 00,09,CI,CB,21,CB,21,CB,21,CB,21, 
79,83,4F,71,23,0659 

560 DATA 72,FB,C9,DD,46,02,4A,53,CB,3A,CB, 
3A,CB,3A,CB,3A,080C 

570 DATA CB,BB,CB,B3,CB,AB,CB,A3,18,B5, F3, 
FE,01,28,12,FE,09DF 

580 DATA 03,C2,65,8B,06,10,DD,5E,00,DD,56, 
02,DD,4E,04,18,0582 

590 DATA 9E,06,10,18,D1,3E,07,C3,5A,BB,00, 
00,00,00,00,00,03BA 

600 DATA 00,00,00,41,53,49,43,2E,49,4E,49, 
D4,4D,43,2E,4F,040F 

610 DATA CE,4D,43,2E,4F,46,C6,4D,43,2E,49, 
4E,CB,4D,43,2E,05C5 

620 DATA 42,4F,52,44,45,D2,4D,43,2E,4E,4F, 
52,4D,41,CC,4D,0592 

630 DATA 43,2E,43,4F,50,59,54,41,C2,00,00, 
00,00,00,00,00,0303 

640 DATA 00,FF,00,FF,77,B3,51,A8,D4,62,39, 
9C,46,2B,15,8A, 07 3C 

650 DATA CD,EE,00,00,00,CC,0C,00,00,55,05, 
88,08,11,01,22,03B1 

660 DATA 02,33,03,44,04,66,06,77,07,99,09, 
AA,0A,BB,OB,DD,0463 

670 DATA 0D,EE,0E,FF,0F,AA,0A,06,00,F0,0F, 
0F,0F,F0,00,FF,05DD 

680 DATA 0F,00,00,0F,00,FF,00,06,06,60,06, 
6F,06,F6,06,00,0300 

690 DATA 0F,66,0F,F6,0F,0F,06,06,00,00,00, 
00,00,00,00,00,01A4 


MEGACOL.DEM 

CPC 464(plus)/6128(plus) 
(c) 1992 Marc Stiegemeyer 
& CPC International 
Initialisierung 


100 
110 
120 
130 
140 
150 

160 KEY DEF 66,0,0,0,0:POKE &BDEE,&C9 

170 RANDOMIZE TIME 

180 DIM ce%(3,3),ca%(3,3) 

190 ON ERROR GOTO 1070 
200 I MC.ON 

210 MC.BORDER,0:FOR n%=0 TO 3:IMC.INK,n%, 
0:NEXT 
220 ' 

230 ' Aufbau des Demo-Screens Nummer 1 
240 ' 

250 MODE 1:LOCATE 11,1:PEN 2:PRINT"M EGA 
C O L O U R":LOCATE 8,3:PEN 1:PRINT"D E M 
ONSTRATION" 

260 LOCATE 1,6:PEN 2:PRINT"MEGACOLOUR";:PE 
N l:PRINT" ist eine Maschinenroutine zur" 
270 LOCATE 3,8:PRINT"Darstellung von 16 au 
s ";:PEN 2:PRINT"4096";:PEN 1:PRINT" Farbe 
n." 

280 LOCATE 1,10:PEN 3:PRINT"Achtung!!! Das 
Programm ist nur auf der" 

290 LOCATE 1,12:PEN 2:PRINT"Amstrad plus-S 
erie (464 plus/6128 plus)" 

300 LOCATE 14,14:PEN 3:PRINT"lauffaehig!!! 

310 LOCATE 1,16:PEN 1:PRINT"Die Demo beste 
ht aus insgesamt 3 Teilen:" 

320 LOCATE 14,18:PEN 3:PRINT"1) ";:PEN 2:P 
RINT"Info-Screen" 

330 LOCATE 14,19:PEN 3:PRINT"2) ";:PEN 2:P 
RINT"Fraktal" 


[1825] 
[3295] 
[2663] 
[4108] 
[2675] 
[2870] 
[2996] 
[3329] 
[2903] 
[2463] 
[2876] 
[2208] 
[3624] 
[3491 ] 
[3573] 
[2668] 
[2346] 
[2388] 
[3862] 
[2101 ] 
[2747] 


[ 1121 ] 

[1320] 

[1937] 

[2118] 

[1300] 

[117] 

[1674] 

[1777] 

[980] 

[1501] 

[733] 

[3013] 

[117] 

[1970] 

[117] 

[5993] 


[8151] 

[5145] 

[4124] 
[4411 ] 
[2922] 
[4339] 
[2999] 
[4155] 
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340 LOCATE 14,20:PEN 3:PRINT"3) ";:PEN 2:P 
RINT"MC-Script" 

350 LOCATE 5,23:PEN l:PRINT"Um zum jeweils 
naechsten Teil zu":LOCATE 5,25:PRINT"gela 
ngen, ist ";:PEN 3:PRINT"[TAB]";:PEN 1:PRI 
NT" zu druecken." 

360 ' 

370 ' Farbrandom 
380 ' 

390 graphiknr=l 

400 FOR nl%=l TO 3:FOR n2%=l TO 3:ce%(nl%, 
n2%)=ROUND(RND*15):NEXT:NEXT:GOSUB 870:GOS 
UB 980:GOTO 400 
410 ' 

420 ' Aufbau des Demo-Screens Nummer 2 
430 ' 

440 GOSUB 980:|MC.BORDER,0:FOR n%=0 TO 3:| 
MC.INK,n%,0:NEXT:graphiknr=2 
450 CLS:LOAD"fr.pic",&C000:PEN 0:LOCATE 8, 
8:PRINT CHR$(22)CHR$(l)"Weiter mit Druck a 
Uf [TAB]"CHR$(22)CHR$(0) 

460 ' 

470 ' Farbfelder belegen und darstellen 
480 ' 

490 ce%(1,2)=10:ce%(2,2)=5:ce%(3,2)=15:GOS 
UB 870:GOSUB 980 'Gruen 

500 ce%(1,3)=10:ce%(2,3)=5:ce%(3,3)=15:GOS 
UB 870:GOSUB 980 'Blau 

510 ce%(1,1)=10:ce%(2,l)=5:ce%(3,l)=15:GOS 
UB 870:GOSUB 980 'Rot 

520 ce%(1,1)=10:ce%(1,2)=10:ce%(1,3)=10:ce 
%(2,l)=5:ce%(2,2)=5:ce%(2,3)=5:ce%(3,1)=15 
:ce%(3,2)=15:ce%(3,3)=15:GOSUB 870:GOSUB 9 
80 'Grau 

530 ce%(1,1)=10:ce%(2,3)=6:ce%(3,1)=6:ce%( 
3,2)=6:ce%(3,3)=6:GOSUB 870:GOSUB 980 'nor 
mal 

540 ce%(l,l)=10:ce%(l,2)=10:ce%(2,1)=5:ce% 

(2.2) =5:ce%(3,1)=15:ce%(3,2)=15:GOSUB 870: 
GOSUB 980 'Gelb 

550 ce%(1,1)=10:ce%(l,3)=10:ce%(2,l)=5:ce% 

(2.3) =5:ce%(3,1)=15:ce%(3,3)=15:GOSUB 870: 
GOSUB 980 'Lila 

560 GOTO 490 
570 ' 

580 ' Aufbau des Demo-Screens Nummer 3 
590 ' 

600 graphiknr=3:CLS 

610 jMC.BORDER,0:FOR n%=0 TO 3: I MC.INK,n%, 
0:NEXT 

620 x%=5:y%=240:FOR n%=3 TO 1 STEP -1:GRAP 
HICS PEN n%:GOSUB 720:x%=x%+4:y%=y%+8:NEXT 
630 x%=0:y%=40:FOR n%=l TO 3:GRAPHICS PEN 
n%:GOSUB 770:x%=x%+4:y%=y%+8:NEXT 
640 x%=73:y%=216:FOR n%=l TO 3:MOVE x%,y%, 
n%,3:TAG:PRINT "Demonstration - ";CHR$(164 
);" 3'1992 by MST";:x%=x%+2:y%=y%+2:NEXT:T 
AGOFF 
650 ' 

660 ' Farb-Random 
670 ' 

680 FOR n%=0 TO 3:FOR n2%=l TO 3:ca%(n%,n2 
%)=ce%(n%,n2%):ce%(n%,n2%)=ROUND(RND*15):N 
EXT:NEXT:GOSUB 870:GOTO 680 
690 ' 

700 ' sub: Schriftzuege zeichnen 
710 ' 

720 MOVE x%,y%:DRAWR 0,120:DRAWR 73,-60:DR 
AWR 73,60:DRAWR 0,-120:MOVER 12,0 
730 DRAWR 0,120:DRAWR 146,0:MOVER -146,-60 
:DRAWR 106,0:MOVER -106,-60:DRAWR 146,0:MO 
VER 12,0 

740 MOVER 146,100:DRAWR -20,20:DRAWR -106, 
0:DRAWR -20,-20:DRAWR 0,-80:DRAWR 20,-20:D 
RAWR 106,0:DRAWR 20,20:DRAWR 0,40:DRAWR -2 
0,0:MOVER 32,-60 

750 DRAWR 73,120:DRAWR 73,-120:MOVER -37,6 
0:DRAWR -73,0 
760 RETURN 

770 MOVE x%,y%:MOVER 95,100:DRAWR -14,20:D 
RAWR -67,0:DRAWR -14,-20:DRAWR 0,-80:DRAWR 
14,-20:DRAWR 67,0:DRAWR 14,20:MOVER 12,-2 

0 

780 MOVER 95,100:DRAWR -14,20:DRAWR -67,0: 
DRAWR -14,-20:DRAWR 0,-80:DRAWR 14,-20:DRA 
WR 67,0:DRAWR 14,20:DRAWR 0,80:MOVER 12,-1 
00 

790 MOVER 95,0:DRAWR -95,0:DRAWR 0,120:MOV 
ER 107,-120 

800 MOVER 95,100:DRAWR -14,20:DRAWR -67,0: 


[2922] 

[11777] 


[514] 

[117] 

[795] 

[6715] 


[117] 

[1977] 

[117] 

[4768] 


[6953] 


[117] 

[2053] 

[117] 

[3573] 

[1708] 

[2740] 

[7527] 


[4645] 


[4331] 


[4834] 


[371] 

[117] 

[1976] 

[117] 

[1243] 

[3013] 

[3819] 

[6145] 

[7974] 


[117] 

[578] 

[117] 

[5502] 


[117] 

[634] 

[117] 

[3880] 

[5250] 


[7088] 


[2494] 

[555] 

[5471] 


[6225] 


[4118] 

[6225] 


DRAWR -14,-20:DRAWR 0,-80:DRAWR 14,-20:DRA 
WR 67,0:DRAWR 14,20:DRAWR 0,80:MOVER 12,-1 
00 

810 MOVER 0,120:DRAWR 0,-100:DRAWR 14,-20: 
DRAWR 67,0:DRAWR 14,20:DRAWR 0,100:MOVER 1 
2,-120 

820 DRAWR 0,120:DRAWR 81,0:DRAWR 14,-20:DR 
AWR 0,-20:DRAWR -14,-20:DRAWR -81,0:DRAWR 
81,-60 
830 RETURN 
840 ' 

850 ' sub: Farbfeld einblenden 
860 ' 

870 FOR n%=0 TO 15 

880 FRAME:IMC.INK,1,ca%(1,1)+n%*((ce%(1,1) 
-ca%(1,1))/i5),ca%(1,2)+n%*((ce%( 1 , 2 )-ca%( 

1.2) )/15),ca%(l,3)+n%*((ce%(1,3)-ca%(1,3)) 
/15) 

890 FRAME: MC.INK,2,ca%(2,1)+n%*((ce%(2,1) 
-ca%( 2 , 1 ))/l5),ca%(2,2)+n%*((ce%(2, 2 )-ca%( 

2.2) )/15),ca%(2,3)+n%*((ce%(2,3)-ca%(2,3)) 
/15) 

900 FRAME: MC.INK,3,ca%(3,1)+n%*((ce%(3,1) 
-ca%(3,l))/l5),ca%(3,2)+n%*((ce%(3,2)-ca%( 

3.2) )/15),ca%(3,3)+n%*((ce%(3,3)-ca%(3,3)) 
/15) 

910 IF brflgo-1 THEN IF INKEY$=CHR$(9) TH 
EN 1020 

920 CLEAR INPUT 
930 NEXT 
940 RETURN 
950 ' 

960 ' sub: Farbfeld aktualisieren 
970 ' 

980 FOR n%=0 TO 3:FOR n2%=l TO 3:ca%(n%,n2 
%)=ce%(n%,n2 %):ce%(n%,n2 %)=0:NEXT:NEXT:RET 
URN 
990 ' 

1000 ' sub: bei Druck auf TAB Farbfeld akt 
ualisieren, und naechster Screen 
1010 ' 

1020 FOR n2%=l TO 3:FOR n3%=l TO 3:ce%(n2% 
,n3%)=ca%(n2%,n3%)+n%*((ce%(n2%,n3%)-ca%(n 
2%,n3%))/15):NEXT:NEXT:GOSUB 980:brflg=-l: 
GOSUB 870:brflg=0 

1030 IF graphiknr=l THEN 440 ELSE IF graph 
iknr=2 THEN 600 ELSE I MC. OFF-.MODE 2: CALL & 
BC02:PEN 1:POKE &BDEE,&C3:KEY DEF 66,0,252 
,252,252:END 
1040 ' 

1050 ' sub: Error-Handling 
1060 ' 

1070 IF ERR=32 AND ERL=450 THEN CALL &BC02 
:MODE 2:PRINT"Das Fraktalbild ist auf Disk 
ette nicht zu finden!!!":GOTO 1100 
1080 IF ERR=28 AND ERL=200 THEN IF PEEK(&8 
A00)<>&C9 THEN CALL &BC02:MODE 2:PRINT"Meg 
acolour VI.0 wurde noch nicht initialisier 
t1!I":GOTO 1100 ELSE PRINT"Megacolour VI.0 
-Befehle greifen nicht!!!":GOTO 1100 
1090 RESUME NEXT 

1100 POKE &BDEE,&C3:KEY DEF 66,0,252,252,2 
52:|MC.OFF:STOP 


[4178] 


[3773] 


[555] 

[ 117 j 
[968] 
[117] 
[595] 
[5561] 


[7458] 


[5382] 


[3006] 


[184] 

[350] 

[555] 

[117] 

[1018] 

[117] 

[4640] 


[117] 

[6552] 


[117] 

[7659] 


[7472] 


[117] 

[600] 

[117] 

[9320] 


[16917] 


[703] 

[2819] 


100 ' MEGACOL.MIX [1202] 

110 ' CPC 464(plus)/6128(plus) [1320] 

120 ' (c) 1992 Marc Stiegmeyer [1713] 

130 ' & CPC International [2118] 

140 ' [117] 

150 ' Initialisierung [1300] 

160 ' [117] 

170 ON BREAK GOSUB 750 [768] 

180 DIM inten(3):nummer=l [840] 

190 ' [117] 

200 ' Bildschirm einrichten und aufbauen [2013] 

210 ' [117] 

220 IMC.OFF:MODE 0:WINDOW 1,20,1,8:FOR n%= [4169] 

0 TO 15:INK n%,0:BORDER 0:NEXT 

230 PEN 9:PRINT" MegaColour-- "+CHR$(164)+ [3510] 
" MST" 

240 FOR n%=2 TO 4 [583] 

250 GRAPHICS PEN n%:DRAWR 0,10:DRAWR 180,0 [4834] 

:DRAWR 0,-10:DRAWR -180,0:MOVER 4,4:FILL n 
%: ' Auswahlbalken 

260 MOVER -4,20,n%+9:DRAWR 0,100:DRAWR 180 [8708] 
,0:DRAWR 0,-100:DRAWR -180,0:MOVER 4,4:FIL 
L n%+3:MOVER 224,-28: ' R/G/B-Sichtfenster 
270 NEXT [350] 
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280 MOVE 0,152,1:DRAWR 638,0:DRAWR 0,100:D 
RAWR -638,0:DRAWR 0,-100:MOVER 4,4:FILL 8: 
' Misch-Sichtfenster 

290 TAG:FOR n%=0 TO 2:MOVE 62+n%*228,140,9 
:PRINT"00";:NEXT:TAGOFF: ' R/G/B-Anteile 
300 PEN#1,10:LOCATE#1,5,9:PRINTfl,"Gesamt: 
0000": ' Mischfarbe 

310 I MC.BORDER,0: MC.INK,0,0: I MC.INK,1,136 

5:IMC.INK,2,3840: MC.INK,3,24Ö 

320 |MC.INK,4,15: MC.INK,5,0:IMC.INK,6,0:I 

MC.INK,7,0:|MC.INK,8,0:|MC.INK,9,2730 

330 |MC.INK,10,1638: MC.INK,11,1365: MC.IN 

K, 12,1365: jMC.INK,13,1365:I MC.INK,14,1092 

340 IMC.ON 

350 > 

360 ' Erste Abfrage 
370 ' 

380 LOCATE 3,4:PEN 14:PRINT"Farbwahl: R G 
B" 

390 a$=UPPER$(INKEYS) 

400 IF INSTR("RGB",a$)=0 OR a$="" THEN 390 
410 ' 

420 ' Zweite Abfrage 
430 ' 

440 PEN 14:LOCATE 2,4:PRINT"Auswahl: "+CHR 
$(242)+ CHR$(32)+CHRS(243)+" R G B" 

450 LOCATE 4,6:PRINT"RETURN SPACE I" 

460 |MC.INK,nummer+10,1365:nummer=INSTR("R 
GB",a$): I MC.INK,nummer+10,4095 
470 GO SUB 590 

480 a$=UPPER$(INKEYS):IF a$ = "" THEN 480 
490 IF a$=CHR$(242) THEN IF inten(nummer)> 
0 THEN inten(nummer)=inten(nummer)-l: ' <- 
- (Farbkomponente Minus 1) 

500 IF a$=CHR$(243) THEN IF inten(nummer)< 
15 THEN inten(nummer)=inten(nummer)+l: ' - 
-> (Farbkomponente Plus 1) 


[7261] 


[3289] 

[3563] 

[4617] 

[5750] 

[5239] 

[733] 

[117] 

[742] 

[117] 

[2486] 

[789] 

[2084] 

[117] 

[1188] 

[117] 

[4427] 

[1367] 

[6458] 

[966] 

[1820] 

[5243] 


[4379] 


510 IF a$=CHR$(13) THEN inten(nummer)=0: ' 
RETURN/ENTER (Farbkomponente:=0) 

520 IF a$=CHR$(32) THEN inten(nummer)=15: 

' SPACE (Farbkomponente:=15) 

530 IF a$=CHR$(73) THEN inten(nummer)=15-i 
nten(nummer): ' I (Komp, invert.) 

540 IF INSTR("RGB",a$)<>0 THEN 460: ' R/G/ 

B-Komponenten-Anwahl 

550 GOTO 470 

560 7 

570 ' sub: Balken- und Farbdarstellung 
580 ' 

590 FOR n%=0 TO 1 
600 FOR n2%=0 TO 1 

610 MOVE (nummer-l)*228,n%*8+n2%*2,l:DRAWR 
inten(nummer)*i 2,0 

620 IF inten(nummer)<>15 THEN DRAWR 180-in 
ten(nummer)* 12 , 0 ,(nummer+ 1 ) 

630 NEXT 
640 NEXT 

650 |MC.INK,nummer+4,inten(nummer)*16 A (3-n 
ummer) 

660 |MC.lNK,8,inten(l),inten(2),inten(3) 
670 TAG:MOVE 62+(nummer-1)*228,140,9:IF in 
ten(nummer)<10 then PRiNT"0";MlD$(STR$(int 
en(nummer)),2); ELSE PRINT MID$(STR$(inten 
(nummer)), 2 ); 

680 TAGOFF 

690 farbe=inten(l)*256+inten(2)*l6+inten(3 

700 LOCATE#1,5,9:PRINT#1,"Gesamt: RIGHTS 

("0000"+MID$(STRS(färbe),2),4); 

710 RETURN 
720 ' 

730 ' sub: ESCape 
740 ' 

750 MODE 1:|MC.OFF:CALL &BC02:PEN 1:PAPER 
0: END 


[4169] 

[2645] 

[3758] 

[2767] 

[454] 

[117] 

[679] 

[117] 

[570] 

[507] 

[2640] 

[2991] 

[350] 

[350] 

[3153] 

[3577] 

[8280] 


[1066] 

[1976] 

[4445] 

[555] 

[117] 

[529] 

[117] 

[3453] 



0 Time-Scanner (Flipper) 30,- 

□ Dominator (Action). 30,- 

0 Hammerfist (Karate) . 30,- 

□ Sorcery ♦ (Action). 30.- 

□ Super Games I: R in den Hohlen - R in 
der Zeit • Hunchback • Astro Attack 30,- 
Super Games II: R am Seil • R im All 

• Punchy • Harrier Attack.30,- 

i Super Games III: Ripper ♦ Kniffei • 
Reversi.30,- 

□ They Sold a Million II: 

Bnjce Lee • Match Day • Match Point • 
Knightlore.30,- 

□ Worldcup Soccer Italy 90 . 30,- 

0 Ninja Warriors (Karate). 30,- 

0 Super Sport I: Tennis - Billard. 30,- 

0 Super Sport II: 3D Grand Prix - 3D Stunt 

Rider - 3D Boxkampf.30,- 


1 0 Match Day II (Fußball). I 

1 0 Tomahawk (Hubschraubersim ) . ‘ 

0 Grand Slam (Tennis).i 

Classic Collection: Cavems (Action) 

Climb it (Jump'n Run) - Skiing . 

1 Terracom (Breakout Spiel). 

0 Tetris (Geschicklichkeit). 

0 Tank Attack (Panzerkrieg). 

0 Head Coach (Football). 

0 Catch 23 (Kriegsspiel). 

: 0 Steve Davis Snooker (Billard) .. 
i 0 Compl. Entertainment (Samml ) 

i 0 Joyce Joystick Controller. 

ij 0 Adapter zu Joystick Controller 

: Joystick: Quickshot 11+.. 

ii 0 Joystick: Competition Pro 5000 


79,95 

79,95 

79,95 

79,95 

79,95 


□ Magnificent 7: Wizball - No.5 lebt - IK + 

Rampage - Freddy Hardest - Siap Fight 
Super Sprint - Yie Ar Kung Fu.79,95 

□ TNT 2 : Hydra - Badlands - Stun Runner 

Skull & Crossb. - Escape f.tR.M.89,95 

□ Grandstand: Cont.Circus - Pro Tennis T. 

Leaderboard - Super Soccer .89,95 

□ Joystick Thunder: Exolon - Lightforce - 

Uricfium - Cybemoid 2 u.v.m.69,95 

□ WinningTeam: Klax-A.P.B. - Cyberball 

Vindicators - Escape f.tR.M.79,95 

□ Heatwave: Zynaps - Alleykat - Nebulus - 

Netherworld - Rana R. - Firelord.69,95 

□ Summer Games I + II, Winter Games: 

3 Disketten.89,95 


0 Ja, ich bestelle die angekreuzten Spiele 
Wenn mal ein Spiel nicht da sein sollte, möchte 
ich folgenden Ersatz 


0 Pirates (Strategie, min 128 KB). 69,95 

0 Sim City (Strategie) . 69,95 

0 North and South (Strategie). 59,95 

0 Gunship (Hubschraubersim ) 79,95 

0 Samurai Trilogy (Karatespiol). 49,95 

0 OutRun Europa (Motorradrennen).. 54,95 

0 Terminator 2 (Action). 49,95 

0 Rodeo Games (6 Disziplinen). 69,95 

0 Thunderjaws (Rick Dangerous ist ein 
Witz dagegen, 2 Spieler gleichz.) . 49,95 

LEMMINGS • Der Hit unter den Compu¬ 
terspielen, ausführl. Test in diesem Heft 
0 3" Disk 54,95 DM 0Kass. 44,95 DM 


Name, Vorname 


Straße 


Wählen Sie 4 der 13 nachfolgenden Spiele 
aus und zahlen Sie zusammen nur noch 
DM 100,- oder einzeln je DM 30- 
□ R-Type (Super Ballerspiel). 30,- 


Tele'on 


Computertyp 



Potsdamer Rlntf 10 

COnPUTER-ELEKTROMK D-7150 Backnang 

Versanckosten Inland: DM 7,80 / bis 5kg (Scheck oder NN,) 
Ausland: DM19,80 (nur Vorauskasse) 

Tel.: 07191-1528(29), 60076 
Fax: 07191-60077 10/11 ’92 
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Programm 


Der Schlüssel zum Code 

Alkatraz 2 - Flucht aus der Codierung 

Alkatraz wußte schon in der Ausgabe 12/1 '92 für Aufregung zu sorgen. 

Zum einen, weil dieser Kopierschutz dort genau beschrieben wurde, zum 
anderen ja es hat auch etwas mit der Schreiberei zu tun -weil es etwas mit 
der Rechtschreibung gehapert hat. Aber jetzt ganz richtig: Alkatraz mit z 
und nicht mit x. 


Geht man davon aus, daß jeder 
Kopierschutz, der von schlauen Gehir¬ 
nen erdacht wurde, kein wirklicher 
Schutz vor Hackern und Software¬ 
piraten ist, ist dies doch sehr er¬ 
schreckend. Trotzdem, eine Menge 
Wissen ist nötig, um bestimmte Schutz¬ 
mechanismen auszuschalten. Der Stan¬ 
dard-Computeranwender hat also kei¬ 
ne Chance, sich in das Denkmuster der 
Coder sowie im Gegenzug der Hacker 
einzuschalten, da hier fundierte Kennt¬ 
nisse der Maschinensprache erforder¬ 
lichsind. 

Um auch Ihnen einen Einblick zu ver¬ 
schaffen, haben wir in der Ausgabe 
12/U92 den Alkatraz-Kopierschutz 


vorgestellt und gleich eine kleine Rou¬ 
tine zum Verschlüsseln eigener Daten 
mitgeliefert. Was jedoch tun, wenn die 
Daten verschlüsselt sind, eine Ent¬ 
schlüsselung jedoch erwünscht ist? 
Ganz einfach: Den Alkatraz-Deprotec- 
tor abtippen und starten. Alles andere 
geht fast wie von selbst. 

(K)eine Chance für den 
Hacker? 

Sind beide Programme eingegeben und 
unter den Namen DECODE.BAS so¬ 
wie DECODE.LAD abgespeichert, 
sollte zuerst Listing 2 gestartet werden. 
Es erzeugt jetzt eine Binärdatei mit dem 


Namen DECODE.BIN, die von dem 
I Iauptprogramm benötigt wird. 

Stauet man nun das Hauptprogramm, 
fragt cs nach dem Namen der zu ent¬ 
schlüsselnden Datei. Erfolgt hier keine 
Angabe, wird davon ausgegangen, daß 
sich das zu entschlüsselnde Programm 
schon im Speicher befindet. Nun geben 
Sie nur noch die Startadresse des Binär¬ 
codes sowie den Namen der nach der 
Decodierung abzuspeichernden Datei 
ein. Bei zweiter Eingabe gilt wieder, 
daß keine Abspeicherung erfolgt, son¬ 
dern die Decodierroutine einfach ver¬ 
lassen wird. Per Hand können nun die 
entschlüsselten Daten auf Kassette 
oder Diskette gesichert werden. 

Alkatraz entschlüsselt 

Die Decodierung an sich geht nach fol¬ 
gendem Schema vor: 

Zuerst erfolgt ein Test, der feststellen 
soll, ob das Programm überhaupt mit 
einem Alkatraz kompatiblen Codier- 
mechanismus verschlüsselt ist. Ist die¬ 
ser gefunden, wird die erste Schleife 
identifiziert, und Decode ermittelt den 
Codiertyp. mit welchem die Routine 
verschlüsselt wurde. Alkatraz liegt ja 
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- wie bekannt - in vier unterschiedli¬ 
chen Variationen mit jeweils vonein¬ 
ander abweichenden Codierungen vor. 
Ist die erste Schleife decodiert, wird ge¬ 
gebenenfalls eine weitere freigelegt, 
die dann auch typengerecht behandelt 
wird. Dieser Vorgang ist beendet, so¬ 
bald keiner der vier Schleifentypen er¬ 
kannt werden kann. 

Leicht entschlüsseln 

In derCPC 12/1 '92 wurde lediglich auf 
den ersten Schleifentyp eingegangen. 
Da es jedoch noch drei weitere gibt. 


Da es jedoch noch drei weitere gibt, 
hier eine kleine Erläuterung: 

Während der erste Schleifentyp mit ei¬ 
nem festen Wert arbeitet, tun dies die 
drei anderen nicht. Als Schlüsselwerl 
benutzt man hier kein festes im Pro¬ 
grammcode enthaltenes Byte. Man 
nimmt vielmehr das Refresh-Register 
des Z80 zu Hilfe. Es erhöht sich nach 
jedem Taktzyklus des 7.80 um den Wert 
I. Lädt man also zunächst einen festen 
Wert in dieses Register und liest es 
nach einer genau definierten Zeit wie¬ 
der aus, erhält man einen veränderten 
Wert, der ausschließlich von der Lauf¬ 


zeit des Programms abhängig ist. Jede 
noch so geringe Veränderung des Pro¬ 
gramms hat zwangsläufig Einfluß auf 
die Anzahl der benötigten Taktzyklen. 
Nutzt man nun den so erhaltenen Wert 
zur Decodierung, läßt das falsch ent¬ 
schlüsselte Programm den Computer 
über kurz oder lang abstürzen. Ein si¬ 
cherer Ablauf kann also nicht garan¬ 
tiert werden. 

Unsere Decodierschleife ermittelt je¬ 
doch den Schlüsselwert genau, und so 
werden alle vier Routinen richtig ent¬ 
schlüsselt. 

William Wieprechl/rs 


100 ' DECODE.BAS 

110 ' CPC 464(plus)/664/6128(plus) 

120 ' (c) 1992 William Wieprecht 

130 ' & CPC International 

140 ON ERROR GOTO 590:CLEAR 

150 MODE 1:INK 1,26:INK 0,0:BORDER 0:INK 2 

,13:INK 3,6:PEN 1:PAPER 0:CLS:LOAD"DECODE. 

BIN",&AF00:zyk=6:lp=0 

160 LOCATE 7,2:PRlNT"Alkatraz Deprotection 
System":LOCATE 10,4:PEN 2:PRINT"written b 
y ";:PEN 3:PRINT"RED DRAGON":PEN l:LOCATE 
5,10:PRINT"Schleife Nr. :":LOCATE 5,12:PR 
INT"Codierrotine :" 

170 LOCATE 1,20:INPUT"Programmname : ",nal 
$ 

180 INPUT"Startadresse : ",adr:IF adr<0 TH 
EN adr=adr+65536 

190 IF adr<&1000 THEN PRINT CHR$(7)," ünzu 
laessig !":LOCATE l,21:GOTO 180 
200 MEMORY adr-l:IF nal$="" THEN 210 ELSE 
LOAD nal$,adr 

210 IF PEEK(adr)=&F3 AND PEEK(adr+6)=&4F T 
HEN space=adr+7 ELSE LOCATE 18,24:PRINT"ER 
ROR!":RUN'TEST 

220 'Identifizierungsschleife 

230 lp=lp+i:typ=0:m=space+l0 

240 IF PEEK(m)=&57 AND PEEK(m+1)=&77 AND P 

EEK(m+2)=&23 THEN typ=l 

250 IF PEEK(m)=SlB AND PEEK(m+l)=&7A AND P 
EEK(m+2)=&B3 THEN typ=2 

260 IF PEEK(m)=&El AND PEEK(m+1)=&ED AND P 
EEK(m+2)=&5F THEN typ=3 

270 IF PEEK(m)=&ED AND PEEK(m+1)=&5F AND P 
EEK(m+2)=&FD THEN typ=4 

280 IF typ=0 THEN WINDOW 1,40,7,25:CLS:WIN 

DOW 1,40,1,25:LOCATE l,12:GOTO 320 

290 LOCATE 20,10:PRINT lp:LOCATE 20,12:PRI 

NT typ:ON typ GOSUB 370,420,470,530 

300 GOTO 230 

310 'Speichern + Ende 

320 PRINT"Startadresse : &";HEX$(space),,, 
,,:INPUT"Programmname :",na2$:IF na2$="" T 
HEN GOTO 340 ELSE SAVE na2$,B,space,lx-1 
330 IF na2$="" THEN GOTO 340 ELSE SAVE na2 
$,B,space,lx-l 

340 LOCATE 3,25:PEN 2:PRINT"I wish you a n 
ice byte ! ";:PEN 3:PRINT"RED DRAGON":CAL 

L &BB06:CALL &BB4E:CALL &BBFF:END 
350 'Decodierung 
360 'TYP 1 

370 wert=PEEK(space+7):POKE &AF37,wert:lo= 
PEEK(space+l):hi=PEEK(space+2) 

380 POKE &AF31,lo:POKE &AF32,hi:lo=PEEK(sp 
ace+4):hi=PEEK(space+5) 

390 lx=lo+hi*256:POKE &AF34,lo:POKE &AF35, 
hi:CALL &AF30 

400 space=space+ 18 :zyk=zyk+(lx)*9:zyk=zyk+ 
3:GOSUB 580:RETURN 
410 'TYP 2 

420 zyk=zyk+2:GOSUB 580:POKE &AF01,zyk 
430 lo=PEEK(space+1):hi=PEEK(SDace+2):POKE 
&AF06,lo:POKE &AF07,hi 
440 lo=PEEK(space+4):hi=PEEK(space+5):lx=l 
o+hi*256:POKE &AF09,lo:POKE &AF0A,hi:CALL 
&AF00 
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[6661] 
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450 space=space+16:zyk=zyk+(lx)*9:GOSUB 58 
0:RETURN 
460 'TYP 3 

470 zyk-zyk+5:GOSUB 580:POKE &AF46,zyk 
480 lo=PEEK(space+7):hi=PEEK(space+8):POKE 
&AFF1,lo:POKE &AFF2,hi 
490 lo=PEEK(space+1):hi=PEEK(space+2):POKE 
&AF4B,lo:POKE &AF4C,hi 
500 lo=PEEK(space+4):hi=PEEK(space+5):lx=l 
o+hi*256:POKE &AF4E,lo:POKE &AF4F,hi:CALL 
&AF45 

510 space=space+25:zyk=zyk+(lx)*13:GOSUB 5 
80:RETURN 
520 'TYP 4 

530 zyk=zyk+4:GOSUB 580:POKE &AF7D,zyk 
540 lo=PEEK(space+5):hi=PEEK(space+6):POKE 
&AF89,lo:POKE &AF8A,hi 
550 lo=PEEK(space+1):hi=PEEK(space+2):lx=l 
o+hi*256:POKE &AF85,lo:POKE &AF86,hi 
560 lo=PEEK(space+8):hi=PEEK(space+9):POKE 
&AF82,lo:POKE &AF83,hi:CALL &AF7C 
570 space=space+28:zyk=zyk+(lx)*15:GOSUB 5 
80:RETURN 

580 za=zyk:za=INT(za/l28):zyk=zyk-za*l28:R 
ETURN 

590 LOCATE 1,24:PRINT CHR$(7);"FEHLER "ERR 
" in Zeile "ERL:CALL &BB06:LOCATE 1,24:PRI 
NT SPACES(39):RESUME NEXT 


100 ' DECODE.LAD 

110 ' CPC 464(plus)/664/6128(plus) 

120 ' (c) 1992 William Wieprecht 
130 ' & CPC International 

140 FOR a=&AF00 TO &AFB4:READ a$:POKE a,VA 
L("&"+a$):b=b+VAL("&"+a$):NEXT:IF b<>l9037 
THEN PRINT"Fehler beim abtippen der DATAz 
eilen !" ELSE SAVE"DECODE.BIN",b,&AF00,&B5 
150 END 

160 DATA 3E,08,32,2C,AF,21,F0,3F,01,10,02, 
C5 7E 57 3A 2C 

170 DATA*AF5F, 06,09,3C, FE, 8Q ,C2 , IC,AF, D6, 
80,10,F6,32,2C 

180 DATA AF,7B,AA,77,23,CI,OB,78,Bl,20,E0, 
C9,18,01,00,00 

190 DATA 21,00,00,01,00,00,16,00,7E,AA,57, 
77,23,OB,78,Bl 

200 DATA 20, F6 ,C9,00,00,3E,09., 32, F0, AF, 21, 
30,40,01,10,00 

210 DATA 3A,F0,AF,C5,57,06,0D,3C,FE,80,C2, 
5 F,AF,D6,8 0,10 

220 DATA F6,32,F0,AF,7E,AA,57,3A,F1,AF,AA, 
57,3A,F2,AF,AA 

230 DATA 77,00,00,23,CI,OB,78,Bl,C2,50,AF, 
C9,3E,0A,32,2D 

240 DATA AF,21,45,87,01,02,02,FD,21,FF,3F, 
C5,3A,2D,AF,FD 

250 DATA AE,00,AC,AD,FD,77,00,OB,2B,FD,23, 
3A,2D,AF,06,0F 

260 DATA 3C,FE,80,C2,A8,AF,D6,80,10,F6,32, 

2D,AF,C1,0B,78 

270 DATA Bl,C2,8B,AF,C9 
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Tips & Tricks 


Gamer’s Message 

Schummeln gilt doch! 

Allmählich miißteessich in Spielerkreisen herumgesprochen haben: 

Für Tips und Tricks rund um alte und neue CPC-Spiele und Spielchen ist die 
Gamer’s Message da. Deshalb keine lange Vorrede, los geht’s! 


Der Schrecken aller Mailboxbetreiber 
sind sicher Hacker. Wer nicht auf echte 
Datenreisen aus ist und lieber- 
HACKER II spielt, erhält hier die 
Codes: 00987. Cover. Yasluir. Wogan 
und Hippy. Noch nie war hacken so ein¬ 
fach ... 

Kurztips für Oldies ... 

Auch für CHASE H.Q. haben wir el- 
wasauf Lager. Wählen Sie die Funktion 
Tasten definieren, und geben Sie die 
Buchstaben S.l l.O.C.K.E und D ein. 
Während des Spiels haben nun die Ta¬ 
sten 1 bis 4 eine besondere Bedeutung. 
1 ist ziemlich uninteressant - Neube¬ 
ginn des Levels. Mit 2 gelangt man in 
den nächsten Teil, 3 zeigt die Endgrafik 
an. und 4 versorgt Sie mit einem neuen 
Leben. Wer kennt ihn noch, den süßen 
Roboter Nummer 5. der auch Star von 
SHORT CIRCUIT war? Aus dem er¬ 
sten Teil helfen Sie ihm. indem Sie 
gleichzeitig die Tasten des Wortes 
OCEAN drücken. 



Einen speziellen Gag gibt es bei SPIN- 
DIZZY. Wer hier während des Titelbil¬ 
des gleichzeitig E und X drückt, wird 
mit einer Grafik erfreut. Diese läßt sich 
auch noch mit einigen Tasten beeinflus¬ 
sen. Schon ein paar Jährchen hat 
GHOSTHUNTERS auf dem Buckel 
-war es doch eines der ersten Spiele des 
Erfolgssoftwarehauses Codemasters. 
Weitgehend unbekannt ist aber, daß 
man in einen Cheat-Modus gelangt, 
wenn man DEL und die Tasten COM- 
PLEX drückt. Mit Hilfe der Buchsta¬ 
bentasten lassen sich nun die verschie¬ 
denen Räume wählen. 

Und für alle Fans von Komplettlösun¬ 
gen: VENDETTA. Gleich im ersten 
Bild befindet sich in einer der Kisten ei¬ 
ne Drahtschere. Nun die Tür aufkicken 
und den Raum betreten. In einer Kiste 


befinden sich Granaten. Eine Kiste 
weiter rechts kann man in den Besitz ei¬ 
nes Maschinengewehrs kommen. In ei¬ 
ner Kiste in der Ecke befindet sich Mu¬ 
nition. Jetzt kann man sich endlich mit 
dem Maschinengewehr bewaffnen und 
den Raum wieder verlassen. Ein Raum 
Weiterrechts befindet sich eine Leiter. 


l/enc/etla 


Diese hochsteigen und das Gebäude 
betreten. Wer sucht, wird hierein Buch 
finden. Weil dieser Raum mit Medien 
aller Art vollgestopft zu sein scheint, 
halten Sie auch nach einer Diskette und 
einer roten Videokassette Ausschau. 
Im nächsten Raum befinden sich ein 
Buch mit einem Code und ein blaues 
Videoband. Jetzt gehen Sie an den 
Computer, legen die Diskette ins Lauf¬ 
werk und geben den aus dem Buch ent¬ 
nommenen Code ein. Nun erhalten Sie 
wieder ein Buch. Im nächsten Raum 
sollten Sie sich der Kiste annehmen, 
die links vom Radio steht. Einen Raum 
weiter hat jemand seine Autoschlüssel 
vergessen. Sie liegen auf dem Tisch, 
vor dem zwei Stühle stehen. An der 
Munitionsschachtel läßt sich wieder 
das nötige Blei für das Maschinenge¬ 
wehr auftreiben. Einen Raum weiter, 
und Sie finden ein Bett. Nicht entschla¬ 
fen, sondern das Kissen in Augen¬ 
schein nehmen. Jetzt kann man das Ge¬ 
bäude verlassen, hinuntersteigen und 
sich aus einer Kiste eine kugelsichere 
Weste besorgen. Nun die Autoschlüs- 
scl anwählen, möglichst nahe an den 
rechten Reifen des Autos herangehen. 
nach links oben schauen und die Tür 
öffnen (das geht wie das Aufnehmen 
von Gegenständen ). 

Der Rächer des Bruders 

Jetzt kommt erst mal eine kleine Auto¬ 
fahrt, bevor es im dritten Teil weiter¬ 
geht. 


Die Tür. die man nun findet, öffnen und 
dann durchschreiten. Nun sucht man 
nach einer I landtasche, einer Karte und 
einem Buch. Dann kann man das Zim¬ 
mer verlassen. Zwei Räume weiter 
rechts findet man neue Munition. 
Rechts geht's ins Innere des Gebäudes, 
wo sich wiedermal ein Kissen befindet. 
Auch dieses wird untersucht, an¬ 
schließend macht man sich wieder aus 
dem Staub. Man wählt den Schlüssel an 
und öffnet die Tür nach dem gleichen 
Prinzip wie beim Auto. Nun drehen Sie 
eine Runde in Ihrem Flitzer, bis Sie am 
Flughafen ankommen. Wie gewohnt 
zuerst nach innen gehen. Dort ergattern 
Sie eine Verkleidung und eine weitere 
kugelsichere Weste. Jetzt bis ins Cock¬ 
pit vorstoßen, die Karte mitnehmen und 
die Drahtschere anwählen. Nun er¬ 
scheint eine Bombe. Diese kann ent¬ 
schärft werden, indem die Drähte in der 
richtigen Reihenfolge durchgeschnit¬ 
ten werden. Zuerst der mittlere, dann 
der linke, zuletzt der rechte. 

Jetzt ist es bald geschafft. Im Park bis 
zum Springbrunnen gehen, und Sie er¬ 
blicken Ihren Bruder, der auf dem Bo¬ 
den liegt. Niederknien, ihn befreien 
und ...geschafft!!! 

B.A.T. - Hilfe naht 

ln Heft 6/7'92 veröffentlichten wir ei¬ 
nen Hilferuf von Mika Töwe. In Ubi- 
Softs Science-Fiction-Ad venture 

B.A.T. kam er nicht in C’risa Kortakis 
Wohnung - der Wächter wies ihn im¬ 
mer ab. I lille kommt von Sven Fischer 
aus Hamburg. "Crisa", schreibt Sven, 
mag keine unerwarteten Besucher. 
Wenn man ihn jedoch vorher anruft und 
sein Kommen ankündigt, dann bereitet 
auch der Wächter keine Schwierigkei¬ 
ten. Die Telefonnummer bekommt man 
übrigens von Lydia”. Vielen Dank für 
den Tip - Mika’s Problem müßte damit 
eigentlich gelöst sein. 

Vor dem ersten Kampf in SAMURAI 
WARRIOR empfiehlt es sich, von der 
Übungsoption Gebrauch zu machen 
und die Steuerung zu üben. Was nir¬ 
gends in der Anleitung erwähnt wird: 
Mit gezogenem Schwert springt unser 
Kämpfer weiter und höher. Nur so kann 
man manche Hindernisse überwinden. 
Die erfolgversprechendste Taktik bei 
URIDIUM: Zuerst säubert man die 
Oberfläche der Raumschiffe von stati¬ 
schen Objekten. Wenn dann noch nicht 
genügend zerstört ist. legt man sich ir¬ 
gendwo auf die Lauer und wartet auf 
gegnerische Formationen, die eine 
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leichte Beute sind. Schlagkräftigere An¬ 
greifer läßt man einfach vorbeiziehen. 

Der Rächer wartet auf 
seine Opfer 

Das größte Problem sind wahrschein¬ 
lich die Satelliten, die Ihr Raumschiff 
verfolgen. Wenn möglich, sollte man 
sich aus dem Staub machen, bevor sie 
starten. Ist es dazu zu spät, muß man 
versuchen, den Verfolger auszubrem¬ 
sen und unerwartet die Richtung zu än¬ 
dern. Wer panisch abhaut, findet sich 
meist in der nächsten Mauer wieder. 
SAINT DRAGON kann man auf zwei 
verschiedene Arten spielen. Entweder 
ganz normal und fair. Dann ist das Spiel 
ziemlich schwer und verursacht leichte 
Frustgefühle. Oder man kuschelt sich 
so in den Schwanz des Drachen ein. daß 
dieser alle Schüsse abfangt. Dann ist 
die Sache ein wahres Kinderspiel, und 
man muß eigentlich nur in der linken 
oberen Ecke bleiben und den Feuer¬ 
knopfbetätigen. 


Pdini Pr cm 

Wenn\ bei Action-Spielen an Leben 
oder an Energie fehlt, helfen oft Tasten¬ 
kombinationen weiter. Doch nicht alle 
Programmierer geben dem Käufer 
gleich Schummelhilfen mit. Dann hel¬ 
fen meist nur Pokes, für die man entwe¬ 
der ein Multiface II benötigt, oder Li- 
stings, die den Kopierschutz umgehen 
und direkt ins Programm poken. Aber 
nicht jeder hat ein Multiface, und die 
Schummellistings sind lang, kompli¬ 
ziert und deshalb rar. Aller guten Dinge 
sind drei, haben wir uns gedacht, und 
deshalb stellen wir hier und heute eine 
weitere Möglichkeit vor. für die man 
nur einen Sectoreditor mit Suchfunkti¬ 
on benötigt. 

Sie suchen einfach eine vorgegebene 
Zahlenfolge auf der Diskette und er¬ 
setzen sic durch eine andere. Um bei 
Steeve McQueen Westphascr unend¬ 
lich viel Energie zu erhalten, ersetzen 
Sie einfach die Folge 91,30,OLAF 
durch 00,30,0I,AF. 

Genauer erklärt sei dies für den Sccto- 
reneditor von Discology, da es sich hier 
um den komfortabelsten und wahr¬ 
scheinlich auch gebräuchlichsten han¬ 
delt. Nach dem Starten wählen Sie den 
Editor. Dort im Menü MODES wählen 
Sie EDITION DISQUE und stellen als 


Starttrack 0, als Endtrack 41 und als ak¬ 
tuellen Track 0 ein (auf französisch 
heißt Track Piste). 

Um die Suche zu beginnen, wählen Sie 
im Menü FONCTIONS den Punkt RE- 
CIIERCHER, was Suchen bedeutet. 
Die /u suchende Kombination ist He¬ 
xadezimal, deshalb drücken Sie nun II. 
Jetzt können Sie die Zahlenkette einge¬ 
ben. nach der gesucht werden soll - in 
unserem Beispiel also 91 30 01 AF. 
Nach einiger Zeit zeigt das Programm 
nun an. wo die Zeichenkette gefunden 
wurde. Schreiben Sie diese Adresse 
auf. Nun gehen Sie ins Menü und 
wählen mit Druck auf C die Funktion 
COURANT an. Mit den Cursortasten 
bewegen Sie nun den Cursor an die vor¬ 
her aufgeschriebene Adresse (die 
Adresse, an der sich der Cursor mo¬ 
mentan befindet, wird rechts unten an¬ 
gezeigt). Sind Sie an der gewünschten 
Adresse angelangt, ersetzen Sie die al¬ 
len Werte durch die neuen. In unserem 
Fall also durch 00 30 01 AF. Dann in 
der Menüleiste durch Anwählen von 
ECRIRE speichern. 

Diskette unter die Lupe 
nehmen bringt Lebens¬ 
energie 

Etwas langsamer, aber einfacher geht 
es auch mit dem Programm HANDY 
MAN. Dort ist das Teilprogramm "Disc 
Searclv’ zuständig, auch hier gibt man 
die Zahlen hexadezimal ein und läßt 
das Programm dann suchen. Der Cur¬ 
sor befindet sich nach der Suche auto¬ 
matisch an der richtigen Stelle, so daß 
die Zahlenfolge nun nur noch über¬ 
schrieben werden muß. Danach natür¬ 
lich Speichern nicht vergessen! 
Ebenfalls recht verbreitet unter unseren 
Lesern dürfte das Programm DOC sein, 
das vor einiger Zeit in derCPC Interna¬ 
tional abgedruckt war. Hier stellt man 
zuerst die Suche nach Ilex-Codes ein 
(F0 schaltet zwischen ASCII und Hexa¬ 
dezimal um). Nach Drücken des Punk¬ 
tes am Zehnerblock wird die Länge der 
Zeichenkette eingegeben (zwei Ziffern 
zählen als eine Zahl), dann die zu su¬ 
chenden Zeichen. Sobald das Pro¬ 
gramm die Suche beendet hat. ändern 
Sie die entsprechende Stelle und spei¬ 
chern mit F2. Sind so alle Veränderun¬ 
gen vorgenommen worden, verlassen 
Sic den Editor und starten das Spiel wie 
gewohnt - nur eben mit ungewohnten 
Erleichterungen. Viel Spaß! 

Achtung, diese Methode der Sektorma¬ 
nipulation verändert Ihre Diskette! 


Deshalb sollten Sie zuerst eine Sicher¬ 
heitskopie anfertigen und nur mit die¬ 
ser hantieren. Sonst können Sie das 
Spiel nie wieder spielen, ohne zu 
schummeln. Im schlimmsten Fall, 
wenn Sie einen Fehler gemacht haben, 
kann auf diese Weise das Programm so¬ 
garganz zerstört werden. 

Probleme, die auftauchen könnten: 
Discology meldet: “Piste YY non for- 
matee”. Dann wird einfach der Start- 
track bei EDITION DISQUE um eins 
erhöht. Wenn Discology “Secteur trop 
grande reduit ä &4000” meldet, sollte 
man das Unternehmen aufgeben, da 
sonst das Programm zerstört werden 
könnte. 


/P><2 Prcfpl 


Für THE CRYPT haben wir folgende 
Ko m b i n a t i o nen a u sgeg r a be n: 

82,F2,82,69 wird durch 00.F2,82,69 
ersetzt, danach wird nach 35.21.70.6F 
gesucht. Statt dessen setzen Sie 
00,21.70,6P ein. Zum Schluß verfahren 
Sie mit 05,F2,11.7C genauso. Die neue 
Folge lautet hier00.F2.11,7C. 

Im nächsten Heft gibt's Kombinationen 
dieser Art für eine ganze Reihe weiterer 
Spiele. 

Abschließend noch ein Wort zu den An¬ 
fragen. die bei unseingehen. Wir versu¬ 
chen. bei Ihren Problemen zu helfen. 
Aber bitte geben Sie doch genau an. wo 
Sie festhängen. Wenn wir Briefe be¬ 
kommen. in denen nur allgemein nach 
Tips gefragt wird ist es - speziell bei 
Adventures -nicht gerade einfach, dem 
Schreiber zu helfen. 

Andreas Lober/jg 


An dieser Stelle wieder die Auffor¬ 
derung an unsere Leser: Schreiben 
Sie uns, wenn Sie bei irgendeinem 
Spiel auf dem CPC festhängen. Und 
lassen Sie uns Tips wissen, die Sie 
beim Spielen herausgefunden ha¬ 
ben. Tastenkombinationen, Kom¬ 
plettlösungen. Tips, Fragen und 
natürlich Antworten — alles ist will¬ 
kommen. 

Unsere Adresse: 

DMV-Verlag 

Redaktion CPC International 
Kennwort: Gamer’s Message 
Fuldaer Straße 6 
W-3440 Esch wege 
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wie die Priorität für Groß- und Klein¬ 
schreibung festzusetzen. Individuell 
wird schon beim Aufruf zwischen dem 
Überscheib- und Einfügemodus ge¬ 
wählt. und auch das Zeichen/die Taste 
zum Verlassen der Eingabeaufforde¬ 
rung läßt sieh vordefinieren. Beim Ver¬ 
lassen der Routine wird das zuletzt ein¬ 
gegebene Zeichen in eine beliebige Va¬ 
riable eingetragen. Nach Belieben läßt 
sich jetzt auch die Positionierung des 
Eingabefeldes direkt beim Aufruf über¬ 
geben. Das spart einen weiteren LO- 
CATE-Befehl und somit wertvollen 
Speicherplatz. 

Zwar mag der Aufruf der Routine mit 
seinem Parameterwulst etwas unge¬ 
lenk erscheinen, betrachtet man jedoch 
die eben genannten Vorteile, läßt sich 
dieser ‘'Mehraufwand” bei der Pro¬ 
grammierung leicht rechtfertigen. 

Alles ist erlaubt 


INPUT einmal anders 

Neue Eingaberoutine als RSX 

Was machen, wenn der Befehl INPUT zu unkonventionell, eine eigene Einga- 
beroutinein BASIC zu langsam und viel zu komplex ist ? Na, wer weiß es? 
Natürlich, wir schnappen unsdieCPC Amstrad und tippen ein paar Zeilen 
ab, die uns mehr Komfort und Geschwindigkeit bei der Zeicheneingabe ga¬ 
rantieren -Fehleingaben natürlich ausgeschlossen. 


Obwohl die Tastatur beim CPC noch als 
wichtigestes Eingabemedium gilt, 
funktioniert gerade die Eingabe nicht 
immer so komfortabel, wie man es sich 
eigentlich wünschen würde. Doch dies 
muß nicht an der Tastatur liegen. 
Schuld ist in den meisten Fällen die 
Eingaberoutine, welche zum Beispiel 
keine Rückspünge zum Zeilenanfang 
oder gar eine Umschaltung vom Einfü¬ 


ge- zum Überschreibmodus erlaubt. 
Dem Autoren dieses Programms ist es 
mit genau 671 Bytes gelungen, einen 
perfekten Ersatz für das doch recht 
spärliche INPUT-Kommando des Lo- 
comotive Basic zu schaffen. 

So können jetzt schon bestehende 
Strings weiterverarbeitet und zulässige 
Tasten vordefiniert werden. Ebenso er¬ 
laubt der String-Editor, die Länge so¬ 


Aber schauen wir uns erst einmal die 
einzelnen Parameter etwas genaueran. 
Direkt am Anfang wird durch den Para¬ 
meter mode der Eingabemodus vorde¬ 
finiert. Eine 0 schaltet direkt in den 
Überschreibmodus, I wählt den Einfü¬ 
gemodus an. 

capslock läßt Befehle wie UPPERS 
oder LOWERS überflüssig werden. 
Die hier zur Verfügung stehenden drei 
Werte stehen für den Beibehalt der Ori¬ 
ginalschreibweise (0). Umwandlung 
aller eingegebenen Werte in Klein- (I) 
oder i n Großschreibung (2). 

Sehr wichtig ist auch der nachfolgende 
Parameter char%. Da sich - wie sich 

ISTRINGEDIT.mode,capslock.(a>c 

har%,@ascii$,@text$,spahe,zeile 

Korrekte Aufrufsyntax fiir den String-Editor 
mit allen Parametern 



Auch richtig: Wir ^ 
Wollen mogt/chst 
ergonomische Com 
poier entwickeln... 


Richtig: ttin Computer 
berstehh iefefendt/ch 
nur d und O 







<RF.TURN>/<ENTER> 

Eingabe absch 1 ießen 

<—» 

Cursor nach rechts 

«-> 

Cursor nach links 

<SHIFT> + <->> 

Cursor ans Ende 

<SHIFT>+<<—> 

Cursor an den Anfang 

<DEL> 

Zeichen vor Cursor löschen 

<CLR> 

Zeichen unter Cursor löschen 

<CONTROL>+<E> 

Umschaltung Einfüge-/Überschreibmodus 

<CONTROL> + <—» 

und 

<CONTROL> + «—> 

und 

<i> 

und 

<T> 

und 

<SHIFT> + <vl> 

und 

<shift>+<T> 

und 

<CONTORL>+<l> 

und 

<CONTORL>+<T> 

und 

<ESC> 

Abbruch 


Innerhalb der Eingaherouii/w stehen folgende Tastenfunktionen zur \ erfiigung 


beim nächsten Parameter herausstellen 
wird - alle erlaubten Zeichen für die 
Eingabe vordefinieren lassen, muß 
natürlich auch ein Zeichen bestimmt 
werden, durch das die Eingabe beendet 
wird. Im Normalfall wird hier das Zei¬ 
chen 13 (Taste <ENTER>) oder 27 ( la¬ 
ste <ESC>) stehen. Denkbar ist aber 


auch die Taslenkombination <CON- 
TROL>-<X>, die sich durch das Zei¬ 
chen 24 an die Variable (S>char% über¬ 
geben läßt. Die genauen Werte für die 
einzelnen Tastendefinitionen erfahren 
Sie in Ihrem Benutzerhandbuch (AN¬ 
HANG III. Zeichnung “ASCII Stan¬ 
dardwerte”). 


Wie schon erwähnt, lassen sich die bei 
e i ner Eingabe erlau bte n Ze i che n v orbe- 
stimmen. Legen Sie also alle erlaubten 
Zeichen in der Variable ascii$ ab. Sol¬ 
len zum Beispiel nur Zahlenwerte mit 
möglicher Punkurennung eingegeben 
werden, ist in den String ascii$ die Zei¬ 
chenkette “0123456789.” zu überge¬ 
ben. 

Als nächstes steht noch die Variable 
textS an. Sie enthält nach erfolgter Ein¬ 
gabe den eingegebenen Text. Wichtig 
hierbei ist noch, daß eine maximale 
Stringlänge, wie Sie vor dem Aufruf 
bestand, zugrunde liegt. Soll also ein 
String mit einer Länge von maximal 40 
Zeichen editiert werden, der vor dem 
Aufruf leer ist, muß text$ zuvor mit 
text_$ strings (40," ") auf die ent¬ 
sprechende Länge gebracht werden. 

Für die Positionierung der Eingabeauf¬ 
forderung stehen nun noch die sinni¬ 
gerweise mit spalte und zeile bezeich- 
neten Parameter bereit. Die Wertbe¬ 
reiche orientieren sich hier an dem 
Bildschirmmodus und sind äquivalent 
zu den bei LOCATE zu verwendenden 
Parametern. 

Hubert Cronenbrock/rs 


100 ' String-Editor Datengenerator 
110 ' CPC 464(plus)/664/6128(plus) 

120 ' (c) 1992 Hubert Cronenbrock 
130 ' & CPC International 

140 MEMORY &9FFF 

150 FOR adr=SAOOO TO &A29E STEP 11 
160 FOR i=adr TO adr+10 
170 READ b$ 

180 byte=VAL("&"+b$) 

190 POKE i,byte 

200 NEXT i 
210 NEXT adr 

220 SAVE"str-edit.bin",b,&A000,&29E 
230 END 

240 DATA 08,A0,C3,23,A0,C3,23,A0,53,54,52 
250 DATA 49,4E,47 / 45,44,49,D4,53,C5 / 01,00 
260 DATA A0,21,9B,A2,CD,Dl,BC,3E,C9,32,14 
270 DATA A0,C9,FE,07,C2,7F,A2,DD,6E,00,CB 
280 DATA 7D,C2,84,A2,3E,19,BD,DA,84,A2,DD 
290 DATA 66,02,CB,7C,C2,84,A2,3E,50,BC,DA 
300 DATA 84,A2,4C,22,97,A2,DD,6E,04,DD,66 
310 DATA 05,7E,FE,00,CA,7F,A2,32,91,A2,23 
320 DATA 5E,23,56,ED,53,95,A2,47,81,DA,84 
330 DATA A2,FE,51,28,03,D2,84,A2,DD,7E,0C 
340 DATA FE,00,28,02,3E,01,32,93,A2,DD,6E 
350 DATA 08,DD,66,09,22,99,A2,7E,32,94,A2 
360 DATA 2A,97,A2,CD,75,BB,EB,7E,CD,5A,BB 
370 DATA 23,10,F9,3E,01,32,92,A2,2A,97,A2 
380 DATA CD,75,BB,CD,81,BB,CD,09,BB,38,FB 
390 DATA CD,06,BB,4F,FE,0D,CA,31,A2,2A,99 
400 DATA A2,77,FE,F3,CA,80,Al,FE,F2,CA,92 
410 DATA Al,FE,F7,CA,Al,Al,FE,F6,CA,C4,Al 
420 DATA FE,7F,CA,D2,Al,FE,10,CA,F9,Al,FE 
430 DATA 05,CA,17,A2,FE,EF,CA,31,A2,3E,EF 
440 DATA B9,30,06,3E,FB,B9,D2,31,A2,DD,7E 
450 DATA 0A,FE,00,28,25,FE,01,28,0F,3E,60 
460 DATA B9,30,1C,3E,7A,B9,38,17,3E,DF,Al 
470 DATA 18,0D,3E,5A,B9,38,0D,3E,40,B9,30 
480 DATA 08,3E,20,B1,4F,2A,99,A2,77,3A,94 
490 DATA A2,B9,CA,31,A2,DD,6E,06,DD,66,07 
500 DATA 7E,FE,00,CA,7F,A2,23,5E,23,56,47 
510 DATA 1A,B9,28,06,13,10,F9,C3,CA,Al,3A 
520 DATA 93,A2,FE,01,28,1B,3A,92,A2,5F,16 
530 DATA 00,2A,95,A2,19,2B,71,3A,91,A2,BB 


[1807] 

[1940] 

[1380] 

[2118] 

[134] 

[1861 ] 

[979] 

[315] 

[465] 

[294] 

[375] 

[547] 

[1707] 

[ 110 ] 

[1914] 

[1387] 

[1125] 

[1422] 

[1447] 

[1837] 

[1895] 

[1882] 

[1952] 

[2319] 

[1241] 

[ 1111 ] 

[2213] 

[1560] 

[1994] 

[2275] 

[1616] 

[1714] 

[1425] 

[1114] 

[2486] 

[2450] 

[1485] 

[1710] 

[2474] 

[1752] 

[1590] 

[2135] 

[879] 

[2834] 


540 DATA CA,35,A2,1C,7B,32,92,A2,C3,35,A2 [1697] 

550 DATA 3A,92,A2,47,3A,91,A2,5F,90,C5,F5 [2492] 

560 DATA 4F,06,00,16,00,2A,95,A2,19,2B,E5 [2607] 

570 DATA D1,F1,28,0C,2B,ED,B8,CI,EB,04,78 [1833] 

580 DATA 32,92,A2,18,01,C1,71,C3,35,A2,3A [1422] 

590 DATA 91,A2,47,3A,92,A2,B8,28,40,3C,32 [1605] 

600 DATA 92,A2,3E,09,18,3A,3A,92,A2,FE,01 [822] 

610 DATA 28,31,3D,32,92,A2,3E,08,18,2B,3A [2236] 

620 DATA 92,A2,47,3A,91,A2,4F,90,FE,00,CA [1164] 
630 DATA A5,A0,CD,84,BB,47,3E,09,CD,5A,BB [1749] 
640 DATA 10,FB,79,32,92,A2,CD,81,BB,C3,A5 [1900] 
650 DATA A0,CD,84,BB,C3,92,A0,3E,07,CD,5A [1838] 
660 DATA BB,C3,A5,A0,3A,92,A2,FE,01,28,Fl [1947] 
670 DATA 4F,06,00,2A,95,A2,09,2B,E5,D1,1B [2183] 

680 DATA 3A,91,A2,91,3C,4F,ED,B0,3E,20,12 [1498] 

690 DATA 3A,92,A2,3D,32,92,A2,C3,35,A2,3A [1660] 

700 DATA 92,A2,4F,06,00,2A,95,A2,09,E5,D1 [2215] 

710 DATA 1B,3A,91,A2,91,4F,FE,00,28,02,ED [2274] 

720 DATA B0,3E,20,12,03,35,A2,3A,91,A2,FE [2355] 
730 DATA 01,CA,A5,A0,3A,93,A2,FE,01,20,07 [1656] 

740 DATA AF,32,93,A2,C3,CA,Al,3E,01,18,F6 [1529] 

750 DATA CD,84,BB,C9,CD,84,BB,2A,97,A2,CD [1709] 
760 DATA 75,BB,2A,95,A2,3A,91,A2,47,7E,CD [1666] 
770 DATA 5A,BB,23,10,F9,2A,97,A2,3A,92,A2 [2252] 

780 DATA 84,3D,67,C3,9A,A0,50,61,72,61,6D [1323] 
790 DATA 65,74,65,72,2D,46,65,68,6C,65,72 [2053] 

800 DATA 20,21,57,65,72,74,62,65,72,65,69 [1710] 

810 DATA 63,68,73,2D,46,65,68,6C,65,72,20 [2216] 

820 DATA 21,21,58,A2,18,03,21,6A,A2,7E,CD [2018] 
830 DATA 5A,BB,23,FE,21,20,F7,C9,C9,01,01 [1920] 

840 DATA 00,00,B6,8B,15,20,EB,21,96,A2,00 [1617] 


100 ' String-Editor Laderoutine [1256] 

110 ' CPC 464(plus)/664/6128(plus) [1940] 

120 ' (c) 1992 Hubert Cronenbrock [1380] 

130 ' & CPC International [2118] 

140 MEMORY &9FFF [134] 

150 LOAD"str-edit.bin" [1671] 

160 CALL &A014 [631] 

170 PRINT "STRingEDIT installiert:NEW [3403] 
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I CPC _ 

”Digiglobc” und Druckerpro- 
b lerne 

Das Programm "Di giglobe ” 
von der Databox2 -3192 läuft auf 
meinem CPC 464 mit Emulator 
einwandfrei. Leider gibt mein 
Epson-Drucker immer erst etli¬ 
che kurze Zeilenvorschübe aus. 
bevor der Städtename gedruckt 
wird. Und noch etwas: Ist das 
Programm "Copyshop" auch 
auf Kassette erhältlich ? 

Wolfgang Karl.Coburg 

Wir vermuten, daß Ihr Drucker 
bei jedem ausdrücklichen Line- 
feed immer einen doppelten 
Zeilenvorschub ausgibt. Dieses 
Problem tritt recht häufig und in 
Verbindung mit den unter¬ 
schiedlichsten Programmen 
auf. Es macht sich in der Regel 
durch sinnlos eingeschobene 
Leerzeilen bei Text- oder Gra- 
fikausgabe bemerkbar. Was al¬ 
so tun bei überflüssigen Zeilen¬ 
vorschüben? 

Stellen Sic den DIP-Schaltcr für 
CR/LF (Linefeed bei jedem Re¬ 
turn ausgeben) auf OFF. Falls 
dies keine Abhilfe schafft, müs¬ 
sen Sie Pin 14 des Druckerka¬ 
bels (“Autofeed/XT”) durch- 
trennen. Dann sollte kein über¬ 
flüssiger Zeilcnvorschub mehr 
erfolgen. Wenn wider Erwarten 
alles nichts fruchtet: Schalten 
Sie Ihren Drucker in den Hex¬ 
dump-Modus und machen Sie 
einen “Digiglobe "-Ausdruck. 
Ermitteln Sie anhand einer 
ASCII-Tabelle (Druckerhand¬ 
buch!) die Hex werte des ausge¬ 
gebenen Städtenamens und ma¬ 
chen Sie diese Hexwertereihe 
im ausgedruckten Hexdump 
ausfindig. Die dieser Reihe vo¬ 
rausgehenden Hexwerte sind 
dann die “Übeltäter”: Steht dort 
der Wert “OA” (dezimal 10), so 
hat Ihr CPC ausdrücklich ein 
“Linefeed”-Zeichen geliefert. 
Dieses läßt sich unterdrücken, 
indem man die entsprechende 
Ausgabe von CHRS(IO) im Li¬ 
st ing des entsprechenden Pro¬ 
gramms ausfindig macht und 
eliminiert. 

Zu Ihrer zweiten Frage: “Copy¬ 
shop” und andere kommerzielle 
CPC-Programme des DMV- 
Verlags sind nicht (mehr) auf 
Kassette erhältlich. Die Über¬ 
prüferei und die Erledigung von 
eventuellen Reklamationen 
fressen so viel teure Arbeitszeit, 
daß die Sache sich nicht lohnt. 
Immerhin treten bei Kassetten 
um ein Vielfaches mehr Daten¬ 


felder auf als bei Diskettensoft¬ 
ware. Darüber hinaus haben die 
meisten CPCIer inzwischen ei¬ 
ne Diskettenstalion die Preise 
für gebrauchte Disk-Laufwerke 
können heute auch kaum noch 
jemanden vom Hocker schub¬ 
sen. 


! CPC 

Neue Hardware für den CPC? 

Ihr baut ganz schön ab! Ihr soll¬ 
tet mal eine Erweiterung ent¬ 
wickeln (lassen), die 256 kByte 
RAM + 8 Epromsockel und RS- 
232-Schnittstelle und eventuell 
noch anderes enthält. Das 
Ganze mit Management als RSX 
im EPROM. Das wäre nach 8 
Jahren CPC schon längst über¬ 
fällig! 

G.Hannemann. Kocherstetten 

Schade, wenn Leser der Mei¬ 
nung sind, wir würden abbauen. 
Es ist kein Geheimnis: Der CPC 
ist schon seit Jahren zum Ni¬ 
schencomputer geworden. Wa¬ 
rum wohl haben alle anderen 
kommerziellen Zeitschriften in 
Deutschland, die sich mit ihm 
beschäftigten, schon Vorjahren 
dichtgemacht? Wir versuchen, 
das kleiner gewordene Grüpp- 
chen der CPCIer und PCWler 
auch weiterhin zusammenzu¬ 
halten und mit interessanten In¬ 
formationen zu versorgen. Auf 
diese Weise sind wir inzwischen 
automatisch selbst von einem 
großen Standard-Computer- 
Magazin (1986) zum Ni¬ 
schenblatt (1.992) geworden - 
mit viel, viel bescheideneren 
Mitteln als früher, einer total zu¬ 
sammengeschrumpften Aufla¬ 
ge und einem winzig kleinen 
Redaktionsteam. 

Oh - ja: Nur zu gern würden wir 
ein Mammut-Hardware-Projekt 
wie das von Ihnen vorgeschla¬ 
gene auf die Beine stellen. Wir- 
das heißt, zwei Redakteure und 
ein Chefred, müßten uns dafür 
allerdings ein paarmal kopieren. 
Das hat blöderweise bis jetzt 
noch nicht so richtig geklappt. 
Oder wir müßten einen Spitzen- 
Hardware-Entwickler auf dem 
freien Markt einkaufen, ihn da¬ 
zu überreden, seine PC-Technik 
zu vergessen und eine Auftrags¬ 
arbeit von drei Mann-Monaten 
Umfang für uns zu übernehmen. 
Kleinigkeit - und da die ganze 
Redaktion regelmäßig Lotto 
spielt, kann es auch nicht mehr 
lange dauern, bis wir uns das lei¬ 
sten können. 


Jetzt aber mal im Ernst: Wir 
bemühen uns, eine gute Zeit¬ 
schrift zu machen, sind jedoch 
noch viel stärker als früher auf 
die Mitarbeit unserer Leser und 
freien Mitarbeiter angewiesen. 
Und die machen normalerweise 
in erster Linie das, was ihnen 
selber Spaß macht. 

Vielleicht findet sich ja ein 
Hardwarefreak, der so etwas 
wie die von Ihnen vorgeschla¬ 
gene Kombi-Aufrüstung schon 
einmal gebaut hat und uns an¬ 
bietet. Wenn die Sache sicher 
nachbaubar ist und wir ein halb¬ 
wegs lesertaugliches Platinen¬ 
layout daraus machen können, 
sind wir gern dabei. 


PCW 


KERMIT-ßezugsadressen 

Sie beschrieben in Ausgabe 
/ /' 89 die Kopplung eines PCWs 
mit einem PC durch das PD- 
Programm "Kermit”. Können 
Sie mir sagen, wo ich diese Soft¬ 
ware herbekomme? 

Erwin Sättler. Eeldaßng 

Das Datenübertragungspro- 
gramm “Kermit" ist Public-Do- 
main-Software und darf somit 
frei verteilt werden. “Kermit" 
gibt cs in Versionen für so ziem¬ 
lich jeden Computer. Die PC’W- 
Vcrsion ist auf der PCW-DA- 
TABOX-Disketle 1U89 ver¬ 
fügbar. CPC- und PC-”Kermit" 
gibt es auf den entsprechenden 
CPC- beziehungsweise PC-DA- 
TABOXEN zur gleichen Aus¬ 
gabe. Freilich gibt es das Pro¬ 
gramm auch einzeln bei ver¬ 
schiedenen PD-Anbietern und 
in Mailboxen. Eine Bezugsquel¬ 
le. bei der man nicht bloß die üb¬ 
lichen PC-Disketten, sondern 
auch CP/M-Software für CPC 
und PCW bekommt: Public-Do- 
main-Initiative, Postfach 1118. 
6464 Linsengericht. 


CPC 

COMAL für CPC 6128 

Ich suche A nsprechpartner zum 
Thema Comal für CPC 6128. 
Meine Frau ist Lehrerin und 
möchte Comal gerne im Unter¬ 
richt einsetzen. leider fand sich 
in der Schule aber kein Hand¬ 
buch mehr dazu auf. Ein Schrei¬ 
ben an die Comal-Anwender¬ 
gruppe brachte nur "unbe¬ 
kannt verzogen". Auch die Su¬ 
che in Kleinanzeigenteilen 


brachte nicht den gewünschten 
Erfolg. Können Sie mir weiter¬ 
helfen? 

Heino Hansen. Flensburg 

Wie unsere Recherchen ergeben 
haben, besteht die “Comal User 
Group” wohl nicht mehr. Aller¬ 
dings gibt cs im Handel nach wie 
vor Comal-Systeme, wenn auch 
nur noch für PCs. Amiga und C- 
64. Die Firma AK modul bus. 
die sich auf Lernsysteme für 
Schulen spezialisiert hat, küm¬ 
mert sich um Comal-Bcnutzer. 
Ansprechpartner ist hier Herr 
Hagemann. Wenn Sie Doku¬ 
mentation benötigen, können 
Sic auch zu zwei Büchern grei¬ 
fen. die sicherlich noch hier und 
da zu haben sind: Fischers “Co¬ 
mal in Beispielen” (1986 er¬ 
schienen bei Teubner. 208 Sei¬ 
ten. DM 24,80) und Büschs 
"Comal für Einsteiger” (1987 
erschienen bei Franzis. 1 15 Sei¬ 
ten. DM 38.-). 


CPC PLUS 


Kompatibilitätsprobleme 

Ich trage mich mit dem Gedan¬ 
ken. mir einen CPC Plus zu kau¬ 
fen. Meine Frage ist nun. ob die 
alle Software auch wirklich 
100% auf den neuen läuft, da 
schon vermehrt über Probleme 
berichtet wurde. In Heft 2-3/92 
haben Sie ein Kompatibilitäts¬ 
modul vorgestellt, das bei 
Schwierigkeiten helfen soll. 
Werden damit alle Probleme be¬ 
hoben , und was kostet es ? 

Peter Krichbaum, Darmstadt 

Leider gibt es tatsächlich etliche 
Programme, die Probleme auf 
den neuen Modellen machen. So 
verweigern etwa "Mastercopy”. 
"Discology”, “Zap t'Balls Ad¬ 
vanced" und ältere Versionen 
vieler Spiele die Zusammenar¬ 
beit mit den Plus-Rechnern. Das 
gleiche gilt für einige Anwen¬ 
derprogramme, die Betriebssy¬ 
stemfunktionen des CPC direkt 
anspringen. Es gibt ja durchaus 
einige Systemunicrschiede zwi¬ 
schen den klassischen 6I28ern 
und dem Plus - so muß etwa die 
direkte Tastaturabfrage für den 
letzteren um zwei Befehle er¬ 
weitert werden. 

Das von Ihnen erwähnte Kom¬ 
patibilitätsmodul bringt laut 
Herstellerangaben etwa 40% 
der “Problemsoftware” auf dem 
Plus zum Laufen. Ein weiteres 
Kompatibilitätsmodul eines an¬ 
deren Herstellers ist in Arbeit, 
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mehr läßt sich darüber jedoch 
noch nicht sagen. Eine soft¬ 
waremäßige Anpassung der 
nicht lauffähigen Programme 
wäre /.war möglich, abernur mit 
einem enormen Zeitaufwand zu 
verwirklichen: Ganze Program¬ 
me müßten disasscmbliert. ge- 
patcht und neu assemblicrt wer¬ 
den. Daran wird sich wohl nie¬ 
mand machen, denn mit einer 
solchen Sträflingsarbeit ließe 
sich auf dem relativ kleinen 
CPC-Plus-Markt auch kein 
Geld verdienen. 


C PC 

Schach für drei 

Mir dem Programm "Schach für 
drei" aus Heft 4/5'92 habe ich 
Probleme. Bei den Befehlen 
iCLS und/SPRITE bekomme ich 
die Meldung “Unknown Com- 
niand"! Ich habe schon alles 
probiert .bisher jedoch ohne Lö¬ 
sung. 

Heinz Hofer. Wien 

Zuerst die gute Nachricht: Bei 
uns läuft “Schach für drei“ pri¬ 


ma und ohne Fehler. Und nun 
die schlechte: Wenn dies bei Ih¬ 
nen nicht so ist. stimmt offenbar 
etwas mit Ihrem abgetippten 
Programmexemplar nicht. “Un¬ 
known Command" wird nur 
dann ausgegeben, wenn die 
RSX-Erweiterung nicht initiali¬ 
siert wurde. Haben Sie auch bei¬ 
de Data-Lader durchlaufen las¬ 
sen? Befinden sich die Dateien 
CHESS.GRA und CHESS.MC 
auf dergleichen Diskette wie Ihr 
Ba sic- H a u pt programm ? Wen n 
ja, geben Sie einmal ein: 

MEMORY &.7FFF: 

LOAD"CHESS.MC", &8000: 
CALL 6,8000 

Geben Sie anschließend bitte 
ICLS ein. Jetzt sollte der Befehl 
anerkannt werden. Sollte dies 
beim Ablauf des Haupt-Pro¬ 
gramms nicht der Fall sein, han¬ 
delt cs sich vermutlich um einen 
Tippfehler in der Zeile 230. 

Falls alle Stricke reißen: 
Schicken Sie Ihr abgetipptes Li¬ 
st ing auf einer Diskette zusam¬ 
men mit einem frankierten 
Rückumschlag an die Redak¬ 
tion zum Überprüfen. 


I_ CPC I 

Loeomotive Basic für PC? 

Ich habe mir aus beruflichen 
Gründen einen 286er AT zu ge¬ 
legt. Nun würde nach interessie¬ 
ren. ob es das Loeomotive Basic 
oder ein ähnliches Basic auch 
auf dem PC gibt. 

Michael Friedrich, Nürnberg 

Leider müssen wir Sie enttäu¬ 
schen. PC und CPC sind einan¬ 
der schon vom Speicherkonzept 
her so unähn 1 ich. wie man es s ich 
nur vorstellen kann. Allerdings 
können die fortschrittlicheren 
Basic-Dialekte auf dem PC (et¬ 
wa Quick Basic, Power Basic 
oderauch das neue Visual Basic 
für Windows) eine ganze Men¬ 
ge. Was man beim CPC mit 
RSXen machen würde, wird bei¬ 
spielsweise bei Quick Basic als 
eigenständige SUBs definiert. 
Die PC-Basics bringen auch sehr 
ordentliche Grafikfunktionen 
mit - sie sind denen des CPC nur 
in keiner Weise ähnlich. Eine 
Umsetzung von Basic-Software 
vom CPC auf den PC ist nur dann 
denkbar, wenn: 


das entsprechende Programm 
lediglich die Standard-Basic- 
Syntax verwendet (Kontrollan¬ 
weisungen, mathematische und 
trigonometrische Funktionen, 
logische Operaloren, Variablen, 
Felder, Stringfunktionen, DA- 
TAs und alphanumerische Bild- 
schirm-PRINTs), 

- weder Grafik noch POKEs, 
geschweige denn Maschinen¬ 
routinen im Programm Vorkom¬ 
men, 

- alle Zugriffe auf Diskette oder 
Drucker in die Syntax des ent¬ 
sprechenden PC-Basic über¬ 
setztwerden. 

Wer partout eine Brücke vom 
CPC zum PC bauen will, sollte 
dies lieber über Turbo Pascal 
versuchen. Die Version 3.0. die 
auf den CPCs unter CP/M läuft, 
ist seinerzeit auch für MS-DOS 
erschienen. Die Anpassung von 
T urbo-3.0-Programmen unter 
CP/M an den PC ist in der Regel 
kein Problem. Wen diese Dinge 
näher interessieren, der sollte 
einmal einen Blick in die Jahr¬ 
gänge '87 und ‘88 der Zeit¬ 
schrift PASCAL werfen. Rest¬ 
bestände davon lassen sich noch 
beim DMV-Verlag bestellen. 


Wir sind ganz Ohr... 

...für Ihre Fragen und Anregungen, was unser Heft betrifft — 
und alles andere rund um CPC oder PCW. Wollen Sie ein selbst¬ 
geschriebenes Programm im Heft unterbringen? Kennen Sie ein 
brandneues Programm, über das wir unbedingt etwas schreiben 
sollten? Kommen Sie mit einem der abgedruckten Listings nicht 
klar? Oder wollen Sic einfach mal mit einem von uns eine Runde 
fachsimpeln? 

Dann ist unsere 

Redaktions-Hotline 

auch für Sic interessant. 

Sie sind herzlich eingcladen - wir wissen zwar nicht auf jede 
Frage die richtige Antwort, aber mancher Knoten löst sieh trotz¬ 
dem schon am Telefon. 

Jeden Dienstag von 16 bis 19 Uhr 

hängt das komplette Redaktionsteam der CPC Amstrad Interna¬ 
tional für Sie an der Leitung. Hier unsere Telefonnummern: 


Jörg Gurowski (jg) Ralf SchÖßler (rs) Peter Schmitz (sz) 

0 5651/809 - 751 05651/8 09-752 0 56 51 / 8 09 - 7 53 



Pro-Design 3.0 DTP-System für alle CPC's. Über 100 
Zeichensätze, 3/4 Megabyte Grafiksoftware mit allem 
erdenklichen Komfort. 9- und 24-Nadel-Druckertreiber. 
Programmdiskette inkl. 14 Zeichensätze. 99,95 DM 
Pro-Poster Schriftbandgenerator mit 25 Effekt-Schrif¬ 
ten. Bis zu 80 Seiten lange Ausdrucke. 44.95 DM 
Desk-Royal komfortable Benutzeroberfläche mit 30 
neuen Befehlen für kreative BASIC-Freunde. 64,95 DM 
Label-Master Grafik-Etiketten-System. 64,95 DM 
Lieferung zuzügl. Versandkosten gegen Scheck oder Nachnahme 

Und für Eure Besitzer gibt es jetzt den 

CRUSÄDER CPC-CLUB 

mit allem, was man sich wünschen kann und natür¬ 
lich den besonders günstigen Club-Preisen für unsere 
Programme. Mitglied ist für uns nicht nur ein Wort. 

KOSTENLOSER KATALOG MIT CLUBINFO 


Crusaöer Softtoare 

Axel Weber, Postf. 260154, 5600 Wuppertal 26 
Beratung. Verkauf und Club ’S 0202/59 23 03 
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Demo-Bezugsadresse 

Seit neuestem druckt ihr auch 
Demo-Tests ah. In der Ausgabe 
ti/9'92 wurde als Koniaktmög¬ 
lichkeit eine Mailbox angege¬ 
ben. mit der Nummer kann ich 
aber leider nichts anfangen! 
Können Sie mir eine Adresse 
nennen, wo ich die entsprechen¬ 
de Demo auf Diskette erhalten 
kann ? Oder geben Sie mir einen 
Tip. wie ich die angegebene 
Mailboxnummer nutzen kann? 

Tim Zylinski, München 

Die Demos erhalten Sie auf 
Diskette unter anderem beim 
NoName-ED V-Ser v icc, Wei¬ 
denweg 14.2905 Edewecht. Die 
Mailboxnummer ist für all die¬ 
jenigen interessant, die über 
eine RS-232-Schnittstelle (bei¬ 
spielsweise aus der Bauanlei¬ 
tung in Heft 6/7’92) und ein 
Modem sowie ein Terminal- 
Programm verfügen. (Ein sol¬ 
ches Terminalprogramm wird 
es übrigens in Ausgabe 
12/1 '92/93 zum Abtippen ge¬ 
ben.) Wenn der Rechner die be¬ 
treffende Mailbox-Nummer zu 
den angegebenen Zeiten an- 
wählt, läßt sich das gewünschte 
Demoprogramm kostenlos von 
dort "über die Leitung” holen. 


|_CPC 464 J 

Rekorderprobleme 

Der eingebaute Datenrekorder 
meines CPC 464 scheint sich 
endgültig verabschiedet zu ha¬ 
ben. Ist es möglich, einen ge¬ 
wöhnlichen Kassettenrekorder 
provisorisch mit dem Computer 
zu verbinden, so daß ich meine 
vorhandene Kassettensoftware 
wieder in den Speicher des 
Rechners bekomme und sie von 
dort aus auf Diskette retten 
kann? 

Michaela Meier. Oberhausen 

Es ist möglich. Wir können al¬ 
lerdings nicht für fehlerfreie La¬ 
devorgänge garantieren. Sie 
müssen den (ausgeschalteten) 
Rechner zunächst öffnen. Dann 
suchen Sie auf der Rekorderpla- 
tinc des CPC den IC 302. Pin I 1 
dieses IC verbinden Sie mit der 
Masselcitung am NF-Ausgang 
Ihres externen Kassettenre¬ 
korders (bei Klinkensteckern: 
dem "Fuß" des Steckers). Die 
Signalleitung (bei Klinken¬ 
steckern: die "Spitze” des 
Steckers) wird übereinen Kon¬ 
densator (4.7 Mikrofarad) mit 
Pin 6 des besagten IC ver¬ 
bunden. 

Setzen Sie den genannten Kon¬ 
densator bitte unbedingt in die 


Leitung zwischen Rekordcrsig- 
nal und Pin 6 des IC. um eine 
g leie hs t ro tnmäß i ge Tre n n u ng 
zu gewährleisten. 

Benutzen Sie als Signalquellc 
nach Möglichkeit einen un- 
verstärkten Ausgang Ihres Kas¬ 
settenrekorders (AUX, Ampli¬ 
fier. Radio). Wenn Sie einen 
Kopfhörerausgang verwenden, 
müssen Sie den Lautstärke¬ 
regler weit zurückstcllcn. damit 
der Kassettenrekorder dem CPC 
keinen zu hohen Pegel liefert. 


PCW 

Kalender aus Heft 2’90 

Das von mir oft verwendete Ka¬ 
lenderprogramm zeigt seit der 
Wende für den Tag der deut¬ 
schen Einheit ein falsches Da¬ 
tum an. Ohne Programmierer¬ 
fahrung ist es mir jedoch gelun¬ 
gen. das Datum entsprechend 
zu ändern. Allerdings wurde 
mir dabei klar, daß dieser Fei¬ 
ertag nun als "beweglich" zu 
betrachten ist und außerdem 
nicht vor 1954 auf tauchen 
dürfte. Die Berücksichtigung 
dieser Fakten und die eventuel¬ 
le zusätzliche und zeitgerechte 
Einführung früherer National¬ 
feiertage erfordert eine Pro¬ 
grammerweiterung. die zu 


schreiben ich mir nicht zutraue. 
Hat Herr Herben Tandler, der 
Autor dieses Programms, oder 
ein anderer User sich dieses 
Problems schon angenommen 
und eine entsprechende Erwei¬ 
terung des Programms vorge¬ 
stellt? 

Josef Giintert.Taufkirchen 

Wenn man nicht allzu großen 
Wert auf elegante Programmie¬ 
rung legt, lassen sich die betref¬ 
fenden Änderungen (und auch 
andere Einschnitte im Kalenda¬ 
rium wie neue Festdaten oder 
die Streichung alter Feiertage) 
sch rein fae h an bri ngen. 

Wenn Sie folgende Zeilen ins 
Listing des Kalenderpro¬ 
gramms aus 2’90 cinfügen. gibt 
es keine Schwierigkeiten mehr 
mit dem Tag der Deutschen Ein¬ 
heit. Zeile 3850 muß dann aus 
dem Original I isting gelöscht 
werden. 

1360 IF fe$="BNDE" THEN 
1445 

1445 IF jahr>1954 AND 
jahrcl 991 THEN 
tag$ (6,17)=" Tag 
der DL. Einheit" 

1446 IF jahr>1990 THEN 
tag$ (10,3)=" Tag 
der Dt. Einheit " 

3850 ' Zei^e muß ge¬ 
löscht werden 


Nachhall 

zu Heft 8/9’92 

Die letzte CPC' war in mehr¬ 
facher Hinsicht ein Heft der 
Superlative. Leider auch im 
Hinblick auf einige ärgerli¬ 
che Fehler, für die w ir uns 
bei Ihnen entschuldigen und 


die wir hiermit korrigieren 
möchten. 

Ein “dicker Hund” steckte im 
Bestückungsschema zur 
Lochrasterplatine des A/D- 
Wandlers (Artikel “Ohren für 
den CPC". Seite 45 unten). Der 
abgedruckle Schaltplan war 
allerdings in Ordnung. Die 
korrekte Anordnung der Bau¬ 


elemente und Brücken haben 
w i r n u n h i e r abgeb i ldet. 

Der nächste Fehler hatte sich 
im Listing “Creator3.Ldr” des 
Rollenspiel-Artikels ("Begeg¬ 
nungen". Seite 63) versteckt. 
Im Artikel hieß es, das Binär- 
fi!e"Creator3.Bin" werde nach 
dem Start des Basic-Ladcrs er¬ 
zeugt. Dieser POKF.te auch 
brav seine Maschinencode- 
DATAs in den Speicher, dach¬ 
te aber nicht daran, ein Binär¬ 
file zu erzeugen. Wie sollte er 
auch - - wo wir doch den Siche¬ 
rungslei I vergessen hatten? 

Die Sache bekommt aber 
schnell Hand und Fuß, wenn 
man /.wischen Zeile 220 und 
230 von “Creator3.Ldr" die 
folgende Programmzeile ein¬ 
schiebt: 

SAVE"creatcr3.bin",b, 
&AQ00,&2AQ 

Der dritte Bug schließlich be¬ 
trifft das Listing “Puzznix 
.Bas" (“Newton ist an allem 


schuld", Seite 27). Einige 
nicht druckbare Steuerzeichen 
in Zeile 1240. die sich durch 
die Überprüfung gemogelt 
hatten, brachten das Ausgabe- 
gerät durcheinander. Richtig 
m u ß d ie Ze i le folgen derma ßen 
aussehen: 

1240 PEN 1:lev=l rsel=l: 
strich$=CHRS(149)+CHR$(8) 
+CHR$(10)+CHR5(149) : 
wegS=CHR$(32)+CHR$(8) 

• :hi (i ... ( : 

LOCATE 15, sel*2+6: 

PRINT str ich$: GOSUB 2210 

Wir werden uns große Mühe 
geben, solche Fehler in Zu¬ 
kunft zu vermeiden. Achtung. 
Züchter: Sollte jemand einen 
Spezialhund anzubieten ha¬ 
ben. der versteckte Fehler in 
den Druckunterlagen einer 
Compulcrzeitschrift wittern 
und rechtzeitig vor Druckle¬ 
gung aufspüren kann, so wären 
wirdat an sehr interessiert. 

IhreCPC-Rcdaktion 
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Kleinanzeigen 


Biete Software 


FRAKTALGENERATOR 3D 30.- SOFTW 
EXP20.-SPECIALOFFER 1 45,- 
ZUS.90,- JAN DEPPISCH. WESERSTR. 
18,7550 RASTATT 


Löse 3"-CPC-Games-Sammlung auf. 
Liste anfordernTel. 04105/76194 


Biete Joyce-Software: Fonts, 
dBase II.Wordstar3.0, Multiplan. 
Spiele + viel Literatur. 

J.Niemeyer. Grünberger Str. 66, 
0-1035 Berlin, Fax/Tel. 5 8816 40 


Biete CPC 6128-Schneider-Joyce- 
Software: Wordstar 3.0 .dBase II, 
Multiplan,Spiele u.viel Literatur, 
alles gut erhalten.H.-J. Niemeyer, 
Grünberger Str.66.0-1035 Berlin 


* cpc & joyce Public Domain Disks 

' Infogeg. 2.-DM in Briefmarken anfordern: 

* PDI. Pf 1118, D-6464 Linsengericht G 


FARB-Hardcopy für Star LC10 
Colouru.ä. und CPC für 30DM! 

M.Schuster Jakob-Kaiser-Weg 9 
7888 Rheinfelden (Info gg.RP) 


LOCOFONT1 m.HANDB.061 28/42153 


COPYSHOP: Anwendungspaket: 
STAR-MON,CREATOR-STAR u.a. 
K. Weisbrich Reddinger Weg 50 
3053 Haste 0 57 23/8 23 38 


Joyce:AMX-Maustlnterface50,-, 
Datenbank "Dateistar VStarmail" 
Kompatibel zu LocoScript 1. zus. 
f. 80.-. Desktop Publisher 50,-. 
Peter Werner, 030-3444777 


Biete Hardware 


CPC6128 incl.Farbmonitor, Joystick, 
Disketten mit div.Spielen und Program¬ 
men NUR 550 DM, Denis Bacina, 
Lothringerstr. 14,85 Ngb.40 


CPC 664 Color, Vortex SP512 v. 
FD1 sowie versch.Spiele, Prgs. 
u. anderes. Liste anfordern 
bei Franz Feix, Tichling 17, 

8311 Gottfrieding. Bitte frank. 
Rückumschlag beilegen 


PCW512k.DRUCKER+51/4”-LWDEFEKT 
403"DISK+MULTIPLAN,DR.GRAPH, 
DESKT-PUPL.MICA.COLOFONT ORIG+ 
DIV.DATABOX+DIV.LITERATUR ETC. 
GEBOT.V.KEMMUNG, 3000 HANNOVER 
HÖPFNERSTR.2,TEL:0511 -41 69 83 


Verkaufe CPC 6128+GT 65+EPSON 
LX 800 (9-Nadler)+7 Amstrad- 
Hefte+4 Leerdiscs+Software 
(u.a.Turbo-Pascal).Guter Zustand, 
wenig gebraucht. 500 DM. 

Tel.: 06 21/65 3188 


CPC6128.CTM 644.DMP 2000,5.25 
LW.Cassetlenstation.Bücher, 
Zeitschriften,Spiele.Anwendung 
und Databoxen uswü! Nur 
komplett abzugeben für DM 450! 

Alex Maier/Schubertring 9/ 

8522 Herzogenaurach 


Verkaufe leicht defekten CPC 
464 mitSP256,DD1 .Turbo Pascal 
3.0.Mica.Context Fraktal und 
CopyShop, 12 Bücher+Zeitschriften 
Drucker DMP2000 ca 700DM 
073 61/6 2268ab18Uhr 

3"-DISKSZU VERSCHERBELN (GEBR.) 
BOXMIT42Stck. FÜR 115DM 
TEL. 0521/1 51 10 (Heiko) 


CPC6128+GT65+DMP2000+Word Star 
‘Spiele VB1000 DM T el.06 61/60 4298 


JOYCE:512kB+3,5"-Floppy+Screen- 
Filter+lnterface+SW -Flückiger 
Y., Mattenstr.132, CH-2504 Biel 


Suche Software 


SUCHE KRAKOUT PRO FUER CPC 664/3” 
Werner Fischer Tel. 0 60 56/46 21 


Suche Kassettenspiele für CPC 464 
(Liste?) Tel. 078 43/26 45 


Suche Hardware 


Suche 9-NADEL-DRUCKER-SCHREIB- 
KOPF FÜR CMC CPA-80 GS(SHINWA) 
MODELL AV-80S2 NR.4008137 NEU 
od.GRBRAUCHT.KOPF-NR.BA45600A. 
J.WEINERT 5010 BERGHEIM 3 
BUSSARDSTR.2 TEL.O 22 71/9 24 78 


Serielle Schnittstelle, mögl. 

ECB und mit Treibersoftware 
K.Weisbrich Reddinger Weg 50 
3053 Haste 0 57 23/8 23 38 


SUCHEJOYCE-HARDWAREiANGEBOTE 
AN W.WEISER KAZBOECKSTR. 2. 
8900 AUGSBURG 


Verschiedenes 


Farbbänder f.JOYCE, PCW 9512. 
NLQ 401. DMP 2000 ab 9,- 
Etiketten,Disketten (3"DM 63) 
u.weit.EDV-Zubehör. Kostenl. Preis¬ 
listen anfordern. W.Kuhn, EDV- 
Zubehör. Hessenstr. 7, 6340 
Dillenburg 2. Tel.O 27 71/3 26 88 G 


LocoLink, wer hilft mir mit Daten¬ 
übertrag. PCW-PC? 0 30-3 44 47 77 



Bewährte Programme aus USA, Frankreich und Deutschland, 
mit Anleitungs-Datei, zum freien Weitergeben! 


Die Public-Domain-Sammeldiskette 1 enthält: 

• die vier besten Packprogramme unter CP/M mitsamt den dazu¬ 
gehörigen Dekomprimierern (Bericht in CPC 8/9'92, S. 12): 
CrLZHI.t und UnCrLZ, 

SO 1.6. USO 1.9 und UF2.0, 

ARK 1.1 und UNARC 1.6 

• zwei Archivierungssysteme unter CP/M zum "Bündeln" von Pro¬ 
grammen. dazu der passende Entflechten 

LU 3.01 und DeLbrCl.O, 

NULU 1.5 mit eingebautem "Auspacker" 

• CRIME: ein bärenstarkes Kopiorsystem unter AMSDOS. 

mit Optionen zum optimalen Kopieren von Einzeldateien und 
kompletten Disketten 

• CROCO MAGNETO — ein tempogeladenes Geschicklichkeits¬ 
spiel unter AMSDOS mit verblüffender Farbgrafik 


CPC-PD-Disk 1: Bestell-Nr. 24001, DM 15,- 

(Unabhängig von der Anzahl der bestellten Produkte berechnen wir bei jeder 
Sendung für das Inland 4,- DM. für das Ausland 6.- DM Porto und Verpackung.) 

DMV-Verlag, Postfach 250, 3440 Eschwege 



Discovery-Modem 369,90 DM 

2400bps, MNP5, Anschluß ans Telefon net/ der Telekom ist. unter Strafe verboten! 
GVC-Modem GM24+V42.bis 599,90 DM 

2400bps, MNP, V42-bis, BTX-fahig, ZZF-Zulassung 


CPC-Word V4.5 

Textverarbeitung für CPC (nur >.2Skß) 

ZAP T BALLS 

Super Spiel (nur 128klii 

Z AP'TU ALLS T-Shirt. (1VXL) 

Soundtrakkcr 1.1 (Musizier mit Mir) 

Bauern in Hessen 

Spritfabrikanten 

MicroDcsign Erweitern ngsdisks (1-3) 
WS-Print V2.0 
Druckererweiterung für Wordstar 


149.90 

DM 

49.95 

DM 

5,00 

DM 

88.90 

DM 

49,95 

DM 

49.95 

DM 

■ 29,95 

DM 

49,90 

DM 


NoName EDV-Service C.br 
Weidenweg 14 
2905 Edewecht 1 
Tel.: 04405/49715 
Mo-Fr: 16:00-21:00 Uhr 
Sa: 10:00-15:00 Uhr 


Programmierer Aufgepasst I 
Wenn ihr ein Super Pro¬ 
gramm geschrieben habt 
und dieses professionell 
vermarktet haben wollt, 
dann meldet euch bei unsl 


Unsere kostenlose Ge- 
somtartikel liste lür CPC 
(Hnrd-und Software) 
können Sie bei uns an- 
fordern! 

Reparaturen werden ab 
jetzt nur noch in unser¬ 
er Duisburger Niederlas¬ 
sung durengeführt! Re- 
paraturarifragen daher 
bitte nur in Duisburg! 


NoName EDV-Service Gbr 
ln den Peschcn 5 t 
4100 Duisburg 14 
FAX: 04541-84944 


Versandkosten: Nachnahme: 7.90 DM - Vorkasse: Versandkostenfrei 



für die Welt 


Postgiro Köln 500500500 
Postf. 101142 • 7000 Stuttgart 10 
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Tips & Tricks 



Die Trickkiste 

Buntgemischte 

Programmsammlungen 

Jetzt endlich können wir voller Stolz sagen: “Es ist soweit. 
DieTrickkiste entspricht dem, was wir uns darunter vor¬ 
gestellt haben.” Die vielen Einsendungen unserer Leser 
machten es uns schwer, dieeine der anderen vor/uziehen. 
Deshalb hier vorerst ein kleiner Einblick in das, was unse¬ 
re Leser geleistet haben. 


Druckerstatus 

CPC 464/664/6128 

Wenn man eigene Programme entwickelt, kommt es immer 
auf die Feinarbeit an. Soll doch das eigene Produkt nicht die 
gleichen Fehler aufweisen wie ein bereits vorhandenes aus 
anderer Feder. 

Fine dieser Feinheiten ist die Druckerporlabfrage. So ist der 
CPC in der Lage zu überprüfen, ob ein Drucker angeschlos¬ 
sen oder gerade außer Betrieb (offline) oder gar nicht erst an¬ 
geschaltet ist. 

Das kann manchem eine große Hilfe sein. Stellen Sie sich 
zum Beispiel vor. Sie wollen riesige Tabellen ausdrucken, ha¬ 
ben den Ausdruck gestartet und... es passiert nichts. 

Haben Sie Ihre Daten bisher noch nicht abgespeichert, müs¬ 
sen Sieden Drucker nachträglich anschallen. Während dieses 
Vorgangs kommt es aber gelegentlich vor, daß der Drucker 
auf dem Weg wichtige Daten verschluckt oderdaß sie gar ver¬ 
fälscht werden. 

Aberdas Programm läßt sich nicht beirren und schickt munter 
weitere Daten an den Drucker ab. 

Warum also nicht die nachfolgende Routine einbauen, die 
locker in einer Programmzeile untergebracht werden kann? 



Sie überprüft den aktuellen Status des Druckers. Durch den 
im Sprachumfang des Locomotive-BASIC enthaltenen Be¬ 
fehl EVFRY kann diese Routine während des Druckvorgangs 
alle paar Sekunden angesprungen werden. Ist der Drucker 
offline, kann entsprechend eine durch Tastendruck zu bestäti¬ 
gende Meldung ausgegeben werden. 

Andreas Knösel/rs 


100 ' Druckerstatus 


[1769] 

110 ' CPC 464/664/6128 


[981] 

120 ' (c) 1992 Andreas Knoesel 


[ 1299 ] 

130 ' & CPC International 


[2118] 

140 status%=INP(&F500) 


[1396] 

150 IF statUS%=&lA THEN PRINT"Drucker 
betriebsbereit!" 

ist 

[4738] 

160 IF status%=&5A THEN PRINT"Drucker 
ausgeschaltetJ" 

ist 

[5574] 



CPC 464(plus)/664/6128( plus) 

Überall findet man inzwischen schon das “Duale System”. 
Fast jede Konservendose, jede Glasflasche und jede Papp¬ 
schachtel hat ihn schon, die Garantie für Wiederverwertung: 
den Grünen Punkt. 

Jeder Computerbesitzer sollte sich jetzt einmal Gedanken 
über die Wiederverwertbarkeit seines Rechners machen. 
Beim CPC gibt es so manches Teil, das beim totalen Defekt 
sinnvoll weiterverwendet werden könnte. 


• Nachdem die “Innereien” entfernt und einige Abdicluar- 
beiten an der Tastatur durchgeführt worden sind, eignet sich 
dieser Teil wunderbar als Blumenbehältnis. 

• Die Tasten vom Keyboard könnten gut in Kindergärten 
oder in Grundschulen verwendet werden. Gerade zum Erler¬ 
nen von zusammenhängenden Buchstabenketten ein günsti¬ 
ges und zudem praktikables Lehrmittel. 

• Sollte der Monitor noch funktionieren, kann er mit gerin¬ 
gem Kostenaufwand in einen Fernseher verwandelt werden. 

• Sämtliche Platinen werden sicher gerne von Bastlern ab¬ 
genommen. 

Rundum eine perfekte Sache, sollte man meinen. Warum also 
nicht auch dem CPC einen grünen Punkt zukommen lassen? 
Da sich bestimmte Institutio¬ 
nen damit sicher etwas schwer¬ 
tun werden, sollten Sie das am 
besten in die eigene Hand neh¬ 
men. 

Tippen Sie einfach das nachfol¬ 
gende Programm ein, und spei¬ 
chern Sie den entstandenen Punkt ab. Eine beliebige Hard- 
copyrouline sorgt dann fin den perfekten Ausdruck auf ihrem 
Drucker. 

Selbstverständlich liegt die Größe des grünen Punktes in 
Ihrem Ermessen. So können auch andere entsorgungsleichte 
Geräte Ihren individuellen Punktabbekommen. 

Thomas Hombert/rs 
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Tips & Tricks 


100 ' Der Gruene Punkt [1838] 

101 ' CPC 464(plus)/664/6128(plus) [1940] 

102 ' (c) 1992 Thomas Hombert [1542] 

103 ' & CPC International [2118] 

104 INPUT"Durchmesser :",d:M0DE 1:INK 0,15 [12685] 
:INK 1,0:BORDER 15:e=l:f=1:g=320:h=200:i=d 

:GOSUB 108:f=-l:e=2:GOSUB 108:f=l:h=200+d* 

0.176:i=d*0.831:GOSUB 108:e=l:f=-l:h=200-d 
*0.176:GOSUB 108:f=1:h=200+d*0.3802:i=d*0. 

507:GOSUB 108:e=2:f=-l 

105 h=200-d*0.3802:GOSUB 108:FOR a=0 TO d* [9858] 
0.2459:j=d*0.3802:k=d*0.5027:l=d*0.085:m=d 
*0.58:PLOT 320,200+j+d/2+a/4,2:DRAW 320+k, 
200 +j+l+a:PLOT 320,200+j-d/2-a/4:DRAW 320+ 

k,200+j-l-a:PLOT 320,200-j-d/2-a/4,1:DRAW 
320-k,200-j-l-a 

106 PLOT 320,200-j+d/2+a/4:DRAW 320-k,200- [11715] 
j+l+a:NEXT:FOR a=l TO 10 STEP 0.5:q=a/1.5: 

PLOT 322,200+j-d/2+a,1:DRAW 320+m-q,200+j+ 
a/2:PLOT 322,200+j+d/2-a:DRAW 320+m-q,200+ 
j-a/2:PLOT 318,200-j+d/2-a,2:DRAW 320-m+q, 

200-j-a/2:PLOT 318,200-j-d/2+a 

107 DRAW 320-m+q,200-j+a/2:NEXT:END 

108 FOR a=0 TO x STEP 2:b=f*SQR(i A 2-a*a):F 
OR w=-l TO 1 STEP 2:PLOT g+b,h+w*a,e:DRAWR 
-2 * b/2,0:NEXT:NEXT:RETURN 


[1894] 

[7753] 


Schleifen können mit diesem Befehl sehr viele interessante 
Effekte erzielt werden. 


☆ I SPRAY 

Der unsichtbare Bildschirm 
wird wie mit einer Spraydose 
über den sichtbaren Bild¬ 
schirm gesprüht. 


☆ |MOSAIC 



Das unsichtbare Bild wird in Form von Mosaikbausteinen 
eingeblendet. 

☆ |COMB,x,y,b,h 

Der entsprechende Bildschirmausschnitt wird durch den an¬ 
deren ersetzt. Dies sieht ungefähr so aus, als würden zwei 
Kämme mit ihren Zinken ineinander fahren. 


Bildeinblendung mit Komfort 

CPC 464(plus)/664/6128(plus) 

Als sichtbares Resultat unserer Trickkiste in derCPC6/7’92 
möchten wir Ihnen diese RSX-Erweiterung vorstellen. Ani¬ 
miert durch die Programme “Raindown” und “ScreenScroll”, 
machte sich unser Leser Michael Müller daran, eine RSX-Er¬ 
weiterung zu programmieren, die eine ganze Menge zu bieten 
hat. Wer also seine eigenen Programme erheblich aufpeppen 
möchte, sollte sich die nachfolgend erläuterten Befehle ein¬ 
mal genauer anschauen. Vorher seien jedoch noch kurz die 
Abkürzungen für eventuell zu übergebende Parameter erläu¬ 
tert: 

“x”, “y” geben jeweils die Koordinaten der oberen linken 
Ecke eines Bildschirmausschnitts an. “b” wiederum gibt die 
Breite und "h" die Höhe des Bildschirmausschnilts an. Alle 
Werte werden wie bei der Darstellung eines Fensters (WIN¬ 
DOW ) in MODE 2 bearbeitet. 

Doch nun zu den Befehlen: 

Sr IHIDE.ON 

Soll ein später einzublendendes Bild im Hintergrund aufge¬ 
baut werden, leitet dieser Befehl alle Grafikausgaben auf die 
unsichtbare Bildschirmseite um. 

☆ IHIDE.OFF 

Alle Bildschirmausgaben erscheinen wieder direkt auf dem 
Monitor. 



Verzögert die automatischen BLEND-Befehle um den Wert 
“f“t" entspricht zirkaeiner 1250stel Sekunde. Der Wert 255 
ergibt also eine Verzögerung von einer Fünftelsekunde. 

☆ ICOPY,x,y,b,h 

Hiermit kopieren Sie den angegebenen Bildausschnitt von 
der unsichtbaren zur sichbaren Seite. Durch Anwendung von 



☆ ,RAIN.U,x,y,b,h / |RÄJ.N.D,x,y,b,h 

Der ausgewählte Bildbereich “regnet" von oben/unten auf 
den Monitor. 

☆ ISLIDE.IN.L / SLIDE.IN.R 

Von links beziehungsweise rechts schiebt sich der Bild¬ 
schirmeinschnittein. 

☆ |ROLL 

Diese Funktion führt einen sogenannten Hardwarescroll aus. 
derdie komplette Bildschirmseite “einrollen" läßt. 

Insgesamt also jede Menge interessante Befehle. Zur Demon¬ 
stration der genannten Funktionen steht mit dem zweiten Li- 
stingeine kleine Demoroutine zur Verfügung. Da sie auf ein 
Binärprogramm mit dem NamenTRICK3.BIN zugreift, muß 
dieses zuerst von dem ersten Listing generiert werden. Laden 
Sie also Listing eins ein, und löschen Sieden REMark-Befehl 
in der Zeile 200. Durch einmaligen Start wird jetzt die 
benötigte Binärdatei angelegt, und das Demonstrationspro¬ 
gramm läuft reibungslos ab. 

Michael Miiller/rs 



100 ' TRICK3.BAS (Initialisiert M-Code) [2205] 
110 ' CPC 464(plus)/664/6128(plus) [1940] 
120 ' (c) 1992 Michael Mueller [1747] 
130 ' & CPC International [2118] 
140 MODE 2:BORDER 0:INK 0,0:INK 1,13,26 [2130] 
150 LOCATE 34,12:PRINT "Bitte warten" [2225] 
160 MEMORY &3FFF:a=0:b=0:c=&8000:a$="" [1132] 


170 FOR i=l TO 28:READ a$:FOR j=l TO LEN(a [1823] 
S) STEP 2 

180 a=VAL("&"+MID$(a$,j,2)):POKE c,a:b=b+a [3417] 
:c=c+l:NEXT:NEXT 

190 IF b<>112397 THEN CLS:CALL &BC02:PRINT [2387] 
"Fehler!":END 

200 'SAVE "TRICK3.BIN",B,S8000,&3BB [1419] 

210 CALL &8000:|HIDE.ON:CLS:|HIDE.OFF [2057] 

220 CALL &BC02:MODE 2:END [941] 

230 DATA 011380218580CDD1BCAF32BD833EC9320 [5868] 

080C93980C38980C39E80C3A980C3CD80C3F6 

240 DATA 80C32581C36C81C3DB81C33482C38482C [5082] 

3BE82C301834B4944452E4FCE484944452E4F 

250 DATA 46C644454C41D9434F50D953505241D94 [3941] 

D4F534149C3434F4DC25241494E2ED5524149 


10/11 '92 CPC 73 


















Tips & Tricks 


260 DATA 4E2EC4534C4944452E494E2ECC534C494 

4452E494E2ED2524F4CCC00000000000600CD 

270 DATA 5F833E40CD08BC010CBCED490130BDED4 

9C90600CD5F833EC0CD08BCC9FE01C5C2A483 

280 DATA C1DD7E0032BD83C93ABD83FE00C801780 

0110000210000EDB03DC2BD80C90604CD5F83 

290 DATA DD4600CB20CB20CB20DD4E022ABB83CD1 

9BDC5E5O600545DCBBCEDB0E1C1CD26BC10EF 

300 DATA C90600CD5F830100402100C0CD19BD545 

DCBBÄ1A7757ED5F5F197CF6C0670B78B1C204 

310 DATA 810100401100C0210040EDB0C90600CD5 

F83010010210OC0CD19BDC5E5O608545DCBBA 

320 DATA 1A7713231A771B2B7CC6086710EEE1C15 

7ED5F5F1967E607F6C0677DE6FE6F0B78B1C2 

330 DATA 33810100401100C0210040EDB0C90604C 

D5F83DD46020E01CD19BDC5DD4600CB2 0CB20 

340 DATA 2ABB83C5E5DD7E02910600545DCBBCD51 

6005Fl9D1EDB0E1C1CD26BCCD26BC10E2DD46 

350 DATA 00CB20CB201608DD5E021D2ABB8319C5E 

5DD7E02910600545DCBBCD516005FAFED52D1 

360 DATA EDB8E1C1CD26BCCD26BC10E0CDB780C10 

C109CC90604CD5F83DD4600CB20CB20CB2005 

370 DATA 05DD70002ABB83CD26BC10FBDD4600C5E 

50602DD4E02CDE480E1C1C5E5C5E50600DD4E 

380 DATA 02545DCD29BCEBEDB0E1C1CD29BC10EAC 

DB780E1C1CD29BC10D2DD4600DD4E022ABB83 

390 DATA CDE480C90604CD5F83DD4600CB20CB20C 

B2005DD70002ABB83C5E50602DD4E02CDE480 

400 DATA E1C1C5E5C5E50600DD4E02545DCD26BCE 

BEDB0E1C1CD26BC10EACDB780E1C1CD26BC10 

410 DATA D2DD4600DD4E022ABB83CDE480C90604C 

D5F83DD46020E01C5DD4600CB20CB20CB202A 

420 DATA BB83C5E5DD7E02910600545DCBBCD5160 

05F19D1EDB0E1C1CD26BC10E5CDB780C10C10 

430 DATA D1C90604CD5F83DD46020E01C5DD4600C 

B20CB20CB201600DD5E022ABB83192BC5E5DD 

440 DATA 7E02910600545DCBBCD516005FAFED52D 

1EDB8E1C1CD26BC10E3CDB780C10C10C8C906 

450 DATA 00CD5F833E1ECD51830107BCED4904ED7 

9FE1AF220830106BCED4904ED793DFEFFC208 

460 DATA 8306C80E502100COCDE4803EOOCD51830 

107BCED4904ED79FE1AF24A830106BCED4904 

470 DATA ED793CFE1FC23283C901E803110000210 

000EDB0C319BDB8C2A48378FE00C8DD7E063D 

480 DATA 67FE50F2A483DD7E043D6FFE19F2A483D 

D7E02 3D84FE50F2A483DD7E00 3D85FE19F2A4 

490 DATA 8316C05CD52600545D29291929292929D 

11922BB83C9E1CD19BD01107FED49014B7FED 

500 DATA 49CD19BD01547FED49C9 


[5231] 

[4385] 

[3294] 

[5272] 

[4776] 

[3430] 

[3409] 

[2888] 

[4142] 

[4363] 

[3418] 

[5349] 

[4475] 

[4181] 

[3185] 

[3698] 

[3319] 

[3410] 

[2483] 

[3185] 

[3434] 

[3810] 

[3829] 

[3000] 

[1276] 


100 ' TRICK3.DEM (Demonstriert Einblendung [3425] 

110 ' CPC 464(plus)/664/6128(plus) [1940] 

120 ' (c) 1992 Michael Mueller [1747] 

130 ' & CPC International [2118] 

140 MODE 2:BORDER 0:INK 0,0:INK l,13,26:LO [6438] 
CATE 34,12:PRINT "Bitte warten" 

150 MEMORY &3FFF:LOAD"trick3.bin",&8000:CA [2923] 
LL &8000 

160 JHIDE.ON:CLS:FOR i=l TO 100:MOVE i,i:D [3242] 
RAW RND*640,RND*400:NEXT:IHIDE.OFF 
170 CLS:INK 1,26 [815] 

180 MOVE 0,0:DRAW 639,0:DRAW 639,398:DRAW [30991 

0,398:DRAW 0,0 

190 MOVE 207,0:DRAW 207,400:MOVE 208,0:DRA [23661 
W 208,400 1 

200 MOVE 431,0:DRAW 431,400:MOVE 432,0:DRA [3162] 
W 432,400 

210 MOVE 0,126:DRAW 640,126:MOVE 0,128:DRA [2406] 
W 640,128 

220 MOVE 0,270:DRAW 640,270:MOVE 0,272:DRA [1787] 
W 640,272 

230 LOCATE 2,2:PRINT "COPY" [1965] 

240 LOCATE 28,2:PRINT "COPY" [1383] 

250 LOCATE 56,2:PRINT "COPY" [1359] 

260 LOCATE 2,10:PRINT "COPY" [1977] 

270 LOCATE 28,10:PRINT "COMB" [1504] 

280 LOCATE 56,10:PRINT "COPY" [1501] 

290 LOCATE 2,19:PRINT "COPY" [2505] 

300 LOCATE 28,19:PRINT "COPY" [1251] 

310 LOCATE 56,19:PRINT "COPY" [1439] 

320 GOSUB 730:FOR i=l TO 26:ICOPY,i,9,1,9: [2619] 
GOSUB 740:NEXT 

330 GOSUB 730:FOR i=80 TO 55 STEP -1:1COPY [4480] 
,i,9,1,9:GOSUB 740:NEXT 

340 GOSUB 730:FOR i=l TO 8:ICOPY,27,i,28,1 [2982] 

:GOSUB 750:NEXT 


350 GOSUB 730:FOR i=25 TO 18 STEP -1:ICOPY 

,27,1,28,1:GOSUB 750:NEXT 

360 GOSUB 730:FOR i=l TO 13 :I COPY.i,1.1,8: 

ICOPY,27-i,l,l,8 
370 GOSUB 740:NEXT 

380 GOSUB 730:FOR i=13 TO 1 STEP -1:1COPY, 
54+i,18,l,8:ICOPY,81-i,18,1,8 
390 GOSUB 740:NEXT 

400 GOSUB 730:FOR i=l TO 4:ICOPY,55,i,26,1 
:ICOPY,55,9-i,26,1 
410 GOSUB 750:NEXT 

420 GOSUB 730:FOR i=4 TO 1 STEP -l:|COPY,l 
,17 + i,26 , 1 : ICOPY,1,26-i,26,1 
430 GOSUB 750:NEXT 

440 GOSUB 730: |DELAY,64:I COMB,27,9,28,9 
450 GOSUB 730:CLS 

460 MOVE 0,0:DRAW 639,0:DRAW 639,398:DRAW 
0,398:DRAW 0,0 

470 MOVE 319,0:DRAW 319,400:MOVE 320,0:DRA 
W 320,400 

480 MOVE 0,190:DRAW 320,190:MOVE 0,192:DRA 
W 320,192 

490 MOVE 320,206;DRAW 640,206:MOVE 320,208 
:DRAW 640,208 

500 LOCATE 2,2:PRINT "RAIN.U" 

510 LOCATE 42,2:PRINT "SLIDE.IN.R" 

520 LOCATE 2,15:PRINT "SLIDE.IN.L" 

530 LOCATE 42,14:PRINT "RAIN.D" 

540 GOSUB 7 30: I DELAY,16:I RAIN.U,1,1,40,13 
550 GOSUB 730: |DELAY,16:|RAIN.D,41,13,40,1 

560 GOSUB 730:|DELAY,16: |SLIDE.IN.R,41,1,4 

0,12 1 

570^GOSUB 730:|DELAY,16:|SLIDE.IN.L,1,14,4 
580 GOSUB 730:CLS 

590 MOVE 0,0:DRAW 639,0:DRAW 639,398:DRAW 
0,398:DRAW 0,0 

600 LOCATE 38,12:PRINT "SPRAY" 

610 GOSUB 7 30:1 SPRAY 
620 GOSUB 730:CLS 

630 MOVE 0,0:DRAW 639,0:DRAW 639,398:DRAW 
0,398:DRAW 0,0 

640 LOCATE 37,12:PRINT "MOSAIC" 

650 GOSUB 730:1MOSAIC 
660 GOSUB 730:CLS 

670 MOVE 0,0:DRAW 639,0:DRAW 639,398:DRAW 
0,398:DRAW 0,0 

680 LOCATE 37,12:PRINT "ROLL" 

690 |HIDE.ON:LOCATE 30,12:PRINT "(c)CPC In 

ternational":IHIDE.OFF 

700 GOSUB 730: I ROLL 

710 GOSUB 730:GOSUB 730 

720 CALL &BC02:MODE 2:END 

730 FOR j=l TO 1000:NEXT:RETURN 

740 FOR j=l TO 25:NEXT:RETURN 

750 FOR j=l TO 50:NEXT:RETURN 


[2583] 

[2228] 

[876] 

[4176] 

[876] 

[4551] 

[940] 

[3647] 

[940] 

[3825] 

[1046] 

[3099] 

[1687] 

[1880] 

[3036] 

[1866] 

[1763] 

[2014] 

[1443] 

[2610] 

[3208] 

[3441] 

[3222] 

[1046] 

[3099] 

[1815] 

[1484] 

[1046] 

[3099] 

[1113] 

[1829] 

[1046] 

[3099] 

[1145] 

[3916] 

[1768] 

[1204] 

[941] 

[1597] 

[1683] 

[1244] 


Micro-Schrift 

CPC6128(plus) 

Gerade in den Bildschirmmodi I und 0 wünscht man sich so 
manches Mal, eventuell doch mit einer anderen, platzsparen¬ 
deren Schrill arbeiten zu können. Wären in Mode 0 anstelle 
der bisher nur 20 Zeichen pro Zeile 40 wünschenswert, hätte 
im Mode I eine 80-Zeichen-Darstellunggroße Vorteile. 

Doch wie es nun einmal ist, nichts ist von Haus aus perfekt, 
kann jedoch nachträglich verbessert werden. 

Zumindest auf dem CPC 6128 und 6128 Plus kann dieser 
Wunsch nun erfüllt werden. Alles, was Sie tun müssen, ist, 
das nachfolgende Listing einzugeben und bei Bedarf zu star¬ 
ten. Ab sofort liegen drei neue RSX-Kommandos zu Ihrer 
freien Verfügung bereit. 

|PEN,x wählt die Farbe aus, mit der der Text auf den Bild¬ 
schirm gebracht werden soll. 

|LOC,x,y legt die X-/Y-Koordinaten für den Anfang der Zei- 
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chendarstellung lest. Die Koordinaten werden genau wie hei 
dem Original LOCATE-Befehl angegeben. 

|PRI,text$ schreibt den in der Variablen textS gespeicherten 
Text auf den Bildschirm. Dabei sollten Sic darauf achten, daß 
diese Routine nur mit Großbuchstaben arbeitet. Alles andere 
wird als unverständliches Kauderwelsch geschrieben. 

Wolfgang Stengel/rs 


Soll der eingelesene Sektor auf eine andere Spur kopiert wer¬ 
den, wählen Sie noch einmal die Funktion “(2)DPar” an, um 
ihn dann mit “(5)Write”abzuspeichem. 

Martin Lehr/rs 



100 ' Microschrift [12171 

110 ' CPC 6128(plus) [856] 

120 ' (c) 1992 Wolfgang Stengel [793] 

130 ' & CPC International [2118] 

140 DATA "*****&*&#m#s# I,5,&&0#F$6#/z$Yo&* [9095] 

*j$Tf&&&Nj#0#0#0jN&&#mh$[h#m&&&&&4&ff#M''( 
j*jn&j #y#q#q#q#qt&r#wHj#0#w$'&#[#W#u$'HHR& 

150 DATA "#0$6#q#qj &j #w#wl#o#wr&&j j&j j.&&F [9725] 
t#MtF&&*#WhJj #M*&#l#w$ A $b#W#W#7&$:#w#u$<#u 
#w$b&$:#w#u#y#u#w$B&#3#w#U$B#W#W#[&#{#q#q$ 
X#q#q#{&$>#wPRP#w$ A &#W#[#W#W 

160 DATA "#W#w$ A &$8#w#w#w#w#w#q&$8#w#w$>#W [9414] 
#r#S&$:#w#u$8#o#w#y&$ A pppppl&#w#w#w#w#w#{p 
&tw#w#wl#o#w#y&$T#mFf#M#mST&G$m#]')# A $7$E$ 
0&&&&&&&&&&5# A $7?# A $7I# A $7#)# A 

170 DATA "&vk$Bru$7vx$=&$Q#K&$AR$0X$r#] $ = $ [10603] 
Aw# A $Q#3(K$Q#;&S'$s#]$r(#I$6 A # A #T$i#Jk$+G& 
$47v&$>n# A ?6$q,&$eu/H'# A $=$A7$omd(#]X$s#]$ 
=$Aw# A $Q#3 ' $Qf;&1I#+ 

180 DATA "I $ $Y#K$9$A#D# A $5$UI6$i$=$rF$NB [10722] 
# A $JFX$q#1$?#T#T#T,&uG&#]/71# '.&$a#}Gl# ' 

$q#]$?mS>f{# A $Y,.$?L$?L$?L$?LT6$i$U7$ # A SA 
yS0G$ # A $a#('# A ,.$9$I'$s#] 

190 DÄTA "ra$A$T# A $E$ $AL$0$ $aq$s#]/$56$ ]P [13092] 
'# A $aq$s#]/H'# A $=t'$r#)#n8lS6$j$=":o=&9000 
:MEMORY o-l:FOR 2=1 TO 6:READ a$:a$=a$+" " 

:FOR x=l TO LEN(a$)-l:m=ASC(MID$(a$,x,1)): 

IF m=35 THEN m=99:p=89 ELSE IF m=36 THEN m 
=99:p=178 

200 POKE o,m-38+l:l=p:o=o-(p=0):p=0:NEXT:N [2123] 
EXT:CALL &90F0 


100 ' Sektor Editor [363] 

110 ' CPC 464(+)/664/6128(+) [1386] 

120 ' (c) 1992 Martin Lehr [741] 

130 ' & CPC International [2118] 

140 MODE 2 : MEMORY &1FFF : WINDOW#0,1,78,1,4 [3016] 

150 GOSUB 210:buf=&2000:drv=0:sec=l:trk=0: [35721 
fmt=&Cl 

160 cmd=&84:PRINT ,l Drv 11 ;drv;" Fmt " ; "&" ;H [4838] 

EX$ ( f mt) ; " Sec ";sec;'' Trk ";trk 

170 PRINT"(l)HPar (2)DPar (3)Read (4)Show [4258] 

(5)Write 

180 INPUT w:ON w GOSUB 280,270,200,240,190 [2302] 
: CLS : GOTO 160 

190 cmd=&85 [273] 

200 fsec=fmt+sec-l:CALL &A006,crad:CALL &A0 [3577] 
1D,buf,fsec,trk,drv:RETURN 

210 s=0 : READ d$ : FOR i=0 TO &36:d=VAL("&"+M [3589] 
ID$(d$,2*i+l,2)):POKE &AOOO+i,d:s=s+d:NEXT 

i 

220 READ S$:IF VAL(S$)=S THEN RETURN ELSE [3312] 
PRINT " ERR":END 

230 DATA OOOOOOOOOOOODD6EOODD660122Ö3A0210 [7064] 
3A0CDD4BC2200A0793 2 02AOC9DD7E005FDD7E0257D 
D7E044FDD6E06DD6607DFOOAOD83205AOC9,&14FB 
240 WINDOW #1,1,48,5, 22: WINDOW #2,51,66,5, [2150] 
22 

250 FOR z=0 TO &1FF : r=PEEK(buf+z):a=r:IF ( [3608] 
(a>127 ) OR (a<32) ) THEN a=46 

260 PRINT#l,HEX$(r,2):PRINT#2,CHR$(a) [2462] 
; : NEXT z : RETURN 

270 INPUT"(Sec),(Trk)";sec,trk:RETURN [1494] 

280 INPUT "( Drv),(Fmt)drv,fmt:RETURN [1430] 



CPC 464( plus)/664/6128( plus) 

Dieses Programm darf auf gar keinen Fall auf Ihrer Utility- 
Diskette fehlen. Erlaubt es doch bei einer bescheidenen 
Größe von nur I kByte, den kompletten Inhalt einer Diskette 
zu betrachten. 

Alles, was Sie hierzu wissen müssen, ist, mit welchem For¬ 
mat die Diskette belegt ist. Nach dem Start meldet sich der 
Diskettenmonitor mit einem zweizeiligen Menü, das die mo¬ 
mentan eingestellten Diskettenparameter sow ie die zur Ver¬ 
fügungstehenden Kommandos anzeigt. 

Wählen Sie jetzt die Funktion “(1 )HPar” an, fragt das Pro¬ 
gramm nach zwei Werten, die durch Komma getrennt einge¬ 
geben werden müssen. Der erste Wert gibt hier das Laufwerk 
an, welches mit 0 für Laufwerk A und I für Laufwerk B be¬ 
zeichnet wird. 

Der zweite Parameter entscheidet nun, in welchem Format 
die Diskette formatiert ist. &42 steht hier für CP/M2.2 bezie¬ 
hungsweise CP/M3.0, &C 1 für das CPC-DATA-Format, und 
& 1 wählt ein CP/M86oder MS-DOS-Disketten formal an. 
Nach dem Rücksprung ins Menü sollte jetzt Funktion 
“(2)DPar" gewählt werden. I lier geben Sie den anzuzeigen¬ 
den Sektor (I -9 beziehungsweise 1 -8 für CP/M86) sowie die 
entsprechende Spur (0-39) an. 

“(3)Read" liest nun den ausgewählten Sektor ein, und 
“(4)Show” zeigt diesen jetzt auf dem Bildschirm an. 


dBasell-Dateien in 
eigenen Programmen 

CPC 464< plus)/664/6128( plus)/PC W 8256/8512/9512 

dBase, als immer noch am weitesten verbreitetes Dalenbank- 
programm für CPC und PCW, erlaubt es mit einem Minimum 
an Aufwand, beliebige Daten zu verwalten. Manchmal möch¬ 
te der Programmierer jedoch aus eigenen Programmen her¬ 
aus auf dBase-Daten zurückgreifen. Eine Beschreibung des 
dBase-Formats ist also nötig. 

EinedBase-Datei besteht grundsätzlich aus einem sogenann¬ 
ten Header und den eigentlichen Datensätzen. Im Header 
werden die Informationen wde Feldnamen und Feldlänge, die 
Anzahl der Datensätze und letztendlich das Datum des letzten 
Updates der Datenbank abgelegt. Hierzu sollten wir uns erst 
einmal folgende Tabelle anschauen: 


Byte 

Inhalt/Größe 

Bemerkung 

0 

02 H 

Bezeichnet dBase 11-Datei 

1-2 

16 Bit Integer 

Anzahl der Records 

3-5 

3 Bytes 

Tag des letzten Updates 

6-7 

16 Bit Integer 

Größe des Records 

8-519 

32*16 Byte Array 

Fe 1 d beze ic h ne r a bgesc h 1 es¬ 
sen mit 0DI1 

520 

1 Byte 

0D11, wenn alle 32 Felder be¬ 
nutzt werden, ansonsten 00 H 
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Nun fehlt nur noch eine Beschreibung der 32 Felder, die die 
jeweiligen Daiensalzinformationen enthalten: 


Byte 

Inhal t/Größc 

Bemerkung 

0-10 

11 Bytes 

Feldname 

1 ! 

1 Byte 

Feldtyp 

12 

1 Byte 

Feldlänge 

13-14 

16 Bit Integer 

Fclddatenadrcssc 

15 

1 Byte 

Dezimalstellen bei 

numerischen Werten 


Der Feldtyp wird durch C, N. L. D oder M angegeben. C steht 
dabei für Zeichen, N für numerisch, L für logisch, D für Da¬ 
tumsfeld und M für Memo. 

Dem eigentlichen Datensatz ist ein Byte vorangestellt, indem 
ein sogenanntes Löschkennzeichen eingetragen wird. Der 
Datensatz wird als gelöscht gekennzeichnet, indem dort der 
Wert 2AH (32D) eingetragen wird. Nicht gelöschte Sätze ha¬ 
ben den Wert 20H (32D). Der Datensatz wird erst durch den 
Befehl Pack aus der Datenbank gelöscht. 



CPC 6 1 28(plus)/PCW 8256/8512/9512 


JRT-Pascal, ein außerordentlich guter Public-Domain-Com- 
piler, erfordert einige Einschränkungen in der Sprache, die 
man jedoch trickreich umgehen kann. Im Gegensatz zu Turbo 
Pascal kennt JRT-Pascal keine leeren Strings, was oft Proble¬ 
me bereitet, wenn man zum Beispiel fertige Routinen in seine 
Programme einbinden möchte. 

Da JRT-Pascal nur Strings mit einer maximalen Länge von 
65535 Zeichen akzeptiert, wird die Länge als Integerzahl ab¬ 
gespeichert. Diese befindet sich in den ersten zwei Bytes ei¬ 
nes Strings. Im nachfolgenden Listing wird ein varianter Re¬ 
cord deklariert, der einen String der maximalen Länge enthält 
und einen Zugriff auf die Länge gestattet. Außerdem wird die 
Prozedur Delete durch DeleteStr ersetzt, damit Strings bis 
zum letzten Zeichen gelöscht werden können. Sonst muß 
nichts geändert werden, da alle weiteren Prozeduren von JRT- 
Pascal auch mit leeren Strings zurechtkommen. 

Michael Haardt/rs 


(* Leerstrings in JRT-Pascal *) 

(* (c) 1992 by Michael Haardt *) 

(* & CPC International *) 

PROGRAM String_Test; 

TYPE LongStr = RECORD 

CASE INTEGER OF 

1: (str: STRING[65535]); 
2: (mem: INTEGER); 

END; 

VAR sl, s2, S3 : STRING [20]; 
i : INTEGER; 

PROCEDURE Nul(VAR s: LongStr); 

BEGIN 
s.mem := 0 ; 

END; 


PROCEDURE DeleteStr(VAR s:LongStr; pl,p2:INTEGER); 
BEGIN 

IF (pl=l) AND (Length(s.str)=p2) THEN 
Nul(s) 

ELSE 

Delete(s.str, pl, p2); 

END; 

BEGIN 

sl:='Test'; Nul(s2); s3:=s2; 

FOR i:=l TO 4 DO BEGIN 

WriteLn(sl, Length(si),' ',s2, Length(s2),' ', 
s3, Length(s3),' ',sl); 

DeleteStr(sl, 1, 1); 
s2:=Concat(s2,' t'); s3:=s2; 

END; 

WriteLn(sl, Length(sl),' ' ,s2, Length(s2),' ', 
s3, Length(s3),' ',sl); 

END. 



Turbo-Pascal 3.0 Benutzer, die eigene Programme entwer¬ 
fen, die auf beliebige Dateien zugreifen, können jetzt eine 
kleine DIR-Funklion einbinden. Sie erlaubt es, alle Dateien 
eines beliebigen Laufwerks auf den Bildschirm zu bringen. 
Nach Eingabe und Start des Programms wird zuerst das Lauf¬ 
werk abgefragt, dessen Dateien aufgelistet werden sollen. 
Hierbei darf jedoch nur der Kennbuchstabe, nicht jedoch — 
wie unter CP/M gewohnt — noch ein angehängter Doppel¬ 
punkteingegeben werden. 

Bevor die Routine aufgerufen wird, sollte das Hauptpro¬ 
gramm durch BDOS(45,255) das BDOS-Fehlerverhalten in 
den toleranten “return-mode” schalten. So führen falsche 
Laufwerksbezeichnungen, Tippfehler oder ähnliches nicht 
zum Absturz des ganzen Programms. 

Natürlich kann diese Prozedur noch erweitert werden. Für 
Programme, die nur Dateien mit bestimmten Erweiterungen 
auflisten sollen (zum Beispiel PAS), kann in der FCB-Zuwei- 
sung anstelle der letzten drei Fragezeichen die Erweiterung 
eingegeben werden. 

Denkbar ist auch eine Erweiterung der Ausgabefunklion. Zu 
Dokumentationszwecken wäre auch der Ausdruck auf den 
Drucker möglich. Die WRITE- und WRITELN-Anweisun- 
gen sind dann entsprechend durch ein LST zu ergänzen. Soll 
das Ausgabegerät variabel bleiben, ist auch eine Ergänzung 
in anderer Form denkbar. So muß das Ausgabegerät (LST, 
CÖN oder AUX) direkt beim Aufrufvon Show Dir übergeben 
werden. Die Prozedur wird dann einfach mit “PROCEDURE 
ShowDir (VAR f: TEXT) deklariert. Der Aufruf erfolgt dann 
mit “ShowDir(LST) für die Druckerausgabe. 

Ausgeben der Daten in eine Datei ist jedoch nicht ohne Zw'i- 
schenspeicherung der Daten möglich, da sonst die ECBs 
durcheinander kommen würden. Bei der Verwendung von 
Balkenmenüs zur Auswahl der Dateien muß ebenfalls zwi- 
schengespeichert werden. Hier ist es dann auch angebracht, 
die gelesenen Daten zu sortieren. 

Andreas Knösel/rs 
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Tips & Tricks 


PROCEDURE ShowDir; 


{ Zeigt Disketteninhalt an } 


VAR FCB: ÄRRAY[0..35] OF CHAR; 

{ File Control Block } 
DMA: ARRAY[0..3,0..31] OF CHAR; 

{ Direct Memory Access Array } 
{ Hilfsvariable } 
{ Eingabe-String ] 


i,x: BYTE; 
s : STRING[1]; 


BEGIN 

BDOS(26,ADDR(DMA)); 
WRITE('DRIVE: '); 
READLN(s); 

FCB:='-??????????? 


{ DMA-Adresse setzen } 
{ LW-Bezeichnung abfragen } 
{ FCB setzen, 36 Bytes } 
{ LW-Bezeichnung einsetzen } 


IF s<> " THEN 
FCB(0]: =s[ 1 ] 

ELSE 

PCB(0]{ leer fuer derzeitiges Laufwerk } 
X:=BDOS(17,ADDR(FCB)); 

{ Nach erstem Eintrag suchen } 

IF X < 4 THEN 

FOR i:=l TO 11 DO WRITE(DMA[X,i]) 

ELSE 

WRITE('No File'); 

WRITELN; 

WHILE X< 4 DO 
BEGIN 

x:=BDOS(18); { Nach weiteren Eintraegen suchen } 
IF X<4 THEN 

FOR i :=1 TO 11 DO WRITE(DMA[x,i]); 

WRITELN; 

END; 

END; 

BEGIN; 

ShowDir; 

END. 


Amsdos Update 

C PC 464 

Das Amsdos der CPC-Rechner bietet so manche Funktion, 
die im Detail noch ein wenig ausgefeilter werden könnte. 
Sieht man sich zum Beispiel den CAT-Befehl an. merkt man 
schnell, daß da noch etwas mehr zu gebrauchen wäre. Was 
würden Sie zum Beispiel davon halten, wenn Ihnen nicht nur 
stur die Dateinamen sowie der freie Speicherplatz einer Dis¬ 
kette angezeigt würde? Als Ergänzung möchten wir Ihnen 
nachfolgendes Listing anbieten. Es ergänzt die Systemrouti¬ 
ne, die für den CAT-Befehl zuständig ist. dahingehend, daß 
nun auch gleich noch das ermittelte Diskettenformat sowie 
die Anzahl der Dateien im derzeit angewählten Userbereich 
angezeigt werden. 

Doch zunächst sollten Sie das nachfolgende Listing abtipp¬ 
ten. Nach dem Start wird die Datei AMSDATE.BIN angelegt, 
die mittels RUN”AMSDATE.BIN" gestartet werden kann. 
Nun ist die Erweiterung eingebunden. 

OliverCopp/rs 



100 ' AMSDOS Update [1511] 

110 ' CPC 464(plus) [779] 

120 ' (c) 1992 Oliver Copp [608] 

130 ' & CPC international [2118] 


140 DEFINT a-z:FOR a=0 TO 4:cs!=0:READ n$: [10702] 
FOR b=0 TO 76:POKE &AF00+a*77+b,VAL("S"+Ml 
D$(n$,b*2 + l,2)):cs!=cs t +ASC(MID$(n$,b+l,1) 

)*(VAL("&"+MID$(n$,b*2+l,2))+l):NEXT:READ 
c!:IF c!<>cs!THEN PRINT"Error in"a*10+90:E 
ND 

150 NEXT:SAVE"amsdate.bin",b,&AF00,&l81,&A [2641] 
F08 

160 DATA 2140B0CDDDAF182F2110AF0EFFC316BDC [8999] 
DCBBCCD37AFCD00B9CD06B9212F07CDDDAF216D06C 
DDDAF219306CDDDAF2142B0CDDDAFC312C0219BBC3 
6C3214CAF229CBC3E053266BEAF3278BEC9F5 

i_ 


170 DATA 600531 [277] 

180 DATA E5CDB4AFE1F1D5DF6EB0CDC5AF7EE6F0F [8972] 

E40 2849FEC02840B7 2847 210CB0CDDDAFE1182A3E2 

CCD5ABBE106007EFEFF200704110E001918F478CDE 

6AF2171B0CDDDAF3A01A7CDE6AF216BB0CDDD 

190 DATA 651976 [528] 

200 DATA AF3E053266BEAF3278BEC92127B018262 [10830] 

139B018212135B0181C2178BE36FF3E013266BECDC 

5AF3ED077C93A0OA7219FA8B7C82EDFC9E5CDDAAFE 

1CDDDAF1897212CB07E2 3B7C45ABB20F8C9 0E 

210 DATA 532169 [379] 

220 DATA 640600CDF8AFOEOA0600CDF8AF47C303B [10263] 

0B9D8B9DA03B00491C3FAAFF578C630CD5ABBF1C90 

A4E6F206469726563746F727920617661696C61626 

C650AOAOD004441544100464F524D41543A20 

230 DATA 478401 [484] 

240 DATA 0049424D0056454E444F5200043220414 [8928] 

D53444F53205550444154452020284329203139393 

2206279204F6C6976657220436F70700A0D0A0D001 

3D5072066696C6573206F6E20757365722000 

250 DATA 272389 [493] 


Multiface-Pokes 



C PC 464( pl US )/664/6 1 28 ( p I us ) 

Eine wahre Poke-Flut für aktuelle aber auch für klassische 


Spiele erreichte uns in letzter Zeit. Da selbst verständlich auch 
Spiele in der CPC einen hohen Stellenwert einnelimen sollen, 
wollen wir Ihnen diese Pokesammlung vorstellen. Doch 
zunächst einmal die Reihenfolge für die Eingabe der Pokes 
miteinem Multiface-II. 

1. Roten Knopf am Multiface drücken und mittels <T> die 
Funktion Tool an wählen. 


2. Da die nachfolgenden Pokes hexadezimal angegeben sind, 
mußmit<H>aul hexadezimal umgeschallet werden. 

3. <SPACE> schaltet nun auch Eingabe um. 

4. Tippen Sic die angegebene Adresse sowie nachfolgend 
ihren Inhalt ein. 

5. <RETURN> schließt die Eingabe ab. 

6. Sollen weitere Pokes eingegeben werden, springen Sie 
zurück zu “3”. 


7. <ESC> springt in das Menü und <R> geht wieder zurück 
ins Programm. 


Programm 

Disk/Tape 

Adresse 

Poke 

Black Tiger 

0 

5012 

CK) 

Bomb Jack 1 

l> 

lOI'D 

CK) 

Bomb .bu k ?. 

1 .) 

18B5 

IS 

Cubal 

1) 

OB 1A 

(K) 



1972 

00 

Chicago.Ws 

1 

•13DD 

00 

»nminator 

IJ 

09 A4 

ii- 

Dragon'sl.airll 

T 

7153 b 

00 

Klevatoi Action 

L) 

0-4 A3 

00 

FlimbosQucst 

1) 

7724 

00 

Hobgoblins 

D 

123-4 

00 

Hotrad 

D 

1B2B 

00 



■IB2C 

00 



•1B20 

00 



■IB36 

00 

IKi 

D 

29B7 

??■ 



27C7 

1)0 

Marspon 

D 

7389 

86 

Monlv Pyilmn 

1) 

SB9I 

PF 



A3 3 8 

iK) 

Ninja Spirit 

D 

322D 

00 

North And Soul li 

1) 

0143 

00 



1.3 U 2 

T> 

Ovfcfl ander 

T 

Isis 

«> 

l’latOon 

1 ) 

0135 

01 

Rastnn Sana 

1) 

0030 

FF 



051-0 

?? 

Shinohi 

D 

15B7 

65 



1407 

00 

Slap liphl 

T 

41.72 

l-V 

SinashTV 

I) 

ID5C 

oo 

Spilling Images 

1) 

3M-3 

CI 

Slridcr 

n 

2AC2 

CH) 



2Bia> 

00 

rhö$iin[Ku»s 

i) 

15 Ar 

FF 



3.B0I- 

CK) 

Viclöry Road 

T 

3 BSE 

FF 



JBbP 

FF 

Wunder Boy 

T 

S2E5 

110 
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Know-how 


Computer auf 
Kontaktsuche 

Modems an CPC und PCW 

Daß auch dem CPC-oder PC Wieralle Türen offenstehen, Modems und 
Mailboxen also nicht nur PC-oder Amiga-Usern Vorbehalten sind, haben 
w ir in den vergangenen Monaten mit unserem DFÜ-Kurs gezeigt. Was muß 
jedoch beachtet werden, w as wird benöt igt, um loslegen zu können? 


Sowohl CPC als auch Joyce benötigen 
für die Kommunikation über das Tele- 
fonnetz neben einem Modem noch Zu¬ 
satzhardware, die die Verbindung zwi¬ 
schen Rechnerund Modem übernimmt. 
Da beide Computer nicht von Haus aus 
über eine serielle Schnittstelle verfü¬ 
gen, muß diese nachgerüstet werden. 
Beim PCW fällt die Wahl leicht, gibt es 
doch nur die CPS8256, die mit rund 200 
DM oder bei gleichzeitigem Speicher¬ 
aufbau entsprechend mehr zu Buche 
schlägt. 

Die Qual der Wahl 

Beim CPC hat man hier schon eine 
größere Auswahl. Von der original 
Schneider/Amstrad-Schnittstelle über 
die Amsoft und Philosolt bis hin zu un¬ 
serem Schnittstellenselbstbau in der 
CPC 6/7'92 gibt es hier mehr als genug. 
Doch ausnahmsweise sollte beim CPC 
diesmal eine Regel mißachtet werden. 
Kauft man im Normal fall immer zuerst 
die Hardware, um dann die entspre¬ 
chende Software anzuschaffen, muß 
man diesmal den Spieß umdrehen. So 
sollte man sich an einschlägig bekannte 
PD-Anbieter wenden, um von dort erst 
einmal ein paar DFÜ-Programme zu 
beziehen. 

Selbstverständlich kann der Joycer 
auch diesen Weg gehen, um so gegebe¬ 
nenfalls doch ein besseres Programm 
als das mitgelieferte MAIL232.COM 
von der Systemdiskette zu finden. 

Ist erst einmal die Anleitung der Soft¬ 
ware studiert, kann man schnell seine 
Wahl treffen. 

Und noch etwas 

Hat man sich für eine Schnittstelle und 
die entsprechende Software entschie¬ 
den, folgt im nächsten Schritt die Suche 
nach einem passenden Modem. Da 
CPC und PCW bei Übertragungsge¬ 


schwindigkeiten von über 2400 Baud 
stark ins Holpern kommen, sollte ein 
Modem mit eben dieser maximalen Ge¬ 
schwindigkeit angeschafft werden. 
Modems dieser Geschwindigkeit sind 
je nach Ausbaustufe - sprich nach Ex¬ 
tras und eventueller Postzulassung - 
für 150 bis 500 DM erhältlich. 

Um nicht die Katze im Sack zu kaufen 
und eventuell für Zusatzfeatures, die 
weder CPC noch PCW ausnutzen kön¬ 
nen, bare Münze zu verschwenden, 
sollten Sic sich schon ein wenig mit der 
Materie befassen und eventuell nach¬ 
folgende Ratschläge genauer studieren. 

V23 - Btx zum Ortstarif 

Bei den Modempreisen schlägt sich be¬ 
sonders ein bestimmtes Feature nieder. 
Es handelt sich um die V23-Norm, die 
den Btx-Betrieb mit 1200/75 bps 
(Bytes pro Sekunde) erlaubt. Für CPC- 
Besitzer uninteressant, kann diese 
Norm für PCWler wichtig sein. Plant 
man zum Beispiel den zusätzlichen 
Kauf eines ßtx-Moduls, kann so der 
Btx-Betrieb zum Orlstarif in Verbin¬ 
dung mit diesem Modem aufgenom¬ 
men werden. Eine zusätzliche DBT03- 
Anschlußbox entfällt also. 

Bei schlechten Telefonleitungen sind 
auch Fehlerprotokolle empfehlens¬ 
wert. Haben Sie schon beim Telefonie¬ 
ren mit Freunden immerein unliebsa¬ 
mes Rauschen in der Leitung, sollte das 
Modem über die Standards MNP-4 
oder MNP-10 verfügen. Es kann auch 
interessant sein, ein Modem mit inte¬ 
grierter Datenkomprimierung anzu¬ 
schaffen. MNP-5 zum Beispiel kann 
bei reinen Textdateien eine Geschwin¬ 
digkeitssteigerung von bis zu 100 % er¬ 
reichen. 

Will man mit anderen 8-Bit-Systemen 
Kontakt aufnehmen, ist cs ebenfalls rat¬ 
sam, die inzwischen nur noch selten 
verwendeten Normen Bell I03/V.2I 



Ein Standardmodem, das im Betrieb mit dem 
CPC keine Schwierigkeiten macht 


und Bell 212/V.22 in die Kaufentschei¬ 
dung einzubeziehen. Diese Normen 
stehen für den Datenaustausch mit 300 
beziehungsweise 1200 bps. 

Beachtet man all diese Punkte, kann ei¬ 
gentlich nichts mehr schiefgehen, und 
das Modem kann angeschafft werden. 

Anschluß mit Tücken 

Steht das Modem nun endlich zu Hause 
auf dem Schreibtisch, ist die Enttäu¬ 
schung oftmals groß. Sind doch alle 
Kabel vorhanden, nur leider paßt das 
Telefonkabel nicht. 

Hier kann aber Abhilfe geschaffen wer¬ 
den. Da fast alle Modems an der Rück¬ 
seite über einen Western-Anschluß 
(amerikanische Telefonsleckernorm) 
verfügen, gibt es im Fachhandel schon 
fertige Kabel, die je nach Länge zwi¬ 
schen 5 und 20 DM kosten. 

Stehen Telefon und Modem im glei¬ 
chen Raum, bietet es sich an, eine neue 
Telefondose für rund 10 DM zu instal¬ 
lieren. Da hier nur zwei beziehungs¬ 
weise vier Kabel angeschlossen wer¬ 
den müssen, kann die Dose selbst 
installiert werden. 

Hierzu schrauben Sie die alte Dose aus 
der Wand und lösen die zwei ange¬ 
schlossenen Kabel von den Verbindern 
1 und 2. Jetzt schließen Sie die zwei Ka¬ 
bel an der neuen Doppeldose an. Je 
nach Bauart müssen nun noch zwei 
Strippen von Pin I und 2 des ersten 
Steckerausgangs an Pin 1 und 2 des 
zweiten Ausgangs gelegt werden. Die 
Dose kann wieder an der Wand mon¬ 
tiert und sowohl Telefon als auch Mo¬ 
dem betrieben werden, und das, ohne 
immer wieder die Telefonstecker aus¬ 
tauschenzu müssen. 

Jetzt, ja jetzt kann endlich die erste Ver¬ 
bindung mit einer Mailbox hergestellt 
werden. Doch dazu im nächsten Heft 
mehr. 

RalfSehößler 
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Software-Review 



Action, Fantasy und die 
Hits von gestern 

Neue Spiele und Programmsammlungen 

Der heiße Sommer v erabschiedet sich und macht Platz für einen vielleicht 
nicht minder heißen Herbst. Aus den Ferien zurückgekehrt, wird der CPCIer 
sogleich mit einer Flut neuer Spiele überrascht. Auch wer erst seit kurzem den 
Markt verfolgt, bekommt jetzt Gelegenheit, die großen Hits der vergangenen 
Jahre zugenießen: Neu erscheinende Spielesammlungen bieten die größten Er¬ 
folge jetzt gebündelt zu niedrigen Preisen. Abwechslung ist Trumpf: Wir haben 
uns für Sie unter anderem eine anspruchsvolle Simulation, Managementspiele, 
Action-Knaller und auch ein Lernspiel für die ganz Kleinen angeschaut. 


Die meisten englischen Hersteller von 
Vollpreisspielen ziehen sich vom CPC- 
Markt zurück oder verringern ihren 
Ausstoß an neuer Software. Trost 
kommt aus Frankreich - oder von den 
vielen Spiele-Sammelpacks und Wie- 
derveröffenllichungen. Auf diese Art 
und Weise kommt man oft preiswert an 
eine ganze Reihe guter Spiele. 

SAINT DRAGON auf dem MAX 
Pack von US Gold gehört leider nicht 
dazu. Auffallendste Merkmale sind ei¬ 
ne schlecht gezeichnete Grafik, die von 
einem eintönigen Sound unterstützt 
und mit einem wenig originellen Spiel¬ 
prinzip zu absoluter Mittelmäßigkeit 
verbunden wird. Ach ja, bevor wir’s 
vergessen: Es geht darum, sich mit ei¬ 
nem Raumschiff-oh, Entschuldigung, 
einem Drachen - durch eine horizontal 


scrollende Landschaft zu kämpfen. 
Irgendwie bekannt? Nicht doch ... 

Ein ungleiches Quartett 

Auch SWIV, ein weiterer Bestandteil 
des MAX-Packs. ist nicht gerade das, 
was man gemeinhin als llit bezeichnet. 
Diesmal scrollt das Spielfeld vertikal, 
die Grafik ist zwar sauber gestaltet, er¬ 
hält aber erst durch die enorme Farb- 
vielfall von Schwarz und Gelb ihren be¬ 
sonderen Reiz. Ein oder zwei Spieler 
können mit einem Jeep und einem Hub¬ 
schrauber gegen die Übermacht 
ankämpfen. Anfangs wird der Spieler 
gnadenlos unterfordert. Mit der Zeit 
und mit steigendem Schwierigkeits¬ 
grad werden die Feinde jedoch origi¬ 
neller und abwechslungsreicher und 


das Spiel spannender. Jetzt kommen 
wir zur Sonnenseite der Packung. Von 
TURRICAN II (und seinem Vorgän¬ 
ger TURRICAN) habe ich bereits ge¬ 
il ug ge sc h wärm l. Aber es i st nun ei nma 1 
ein ungeheuer abwechslungsreiches, 
grafisch und programmtechnisch hoch¬ 
karätiges Action-Spiel. 

Bleibt noch NIGHT SHIFT. Auch die¬ 
ses Programm haben w ir erst vor kurz¬ 
em vorgestellt. Noch mal in Kürze: In 
einer Spielzeugfabrik muß eine riesige 
Maschine überwacht werden, die zu ei¬ 
nigen kleinen Defekten neigt. Ballern 
ist - ausnahmsweise einmal - nicht 
möglich. Trotzdem geht es heiß her. In 
höheren Levels ändert sich die Grafik 
kaum, das Spiel bekommt aber immer 
vertracktere Elemente. Ein eigenwilli¬ 
ges Spielprinzip hat diesem Spiel viele 
Freunde beschert - vollkommen zu 
Recht! 

Wer NIGHT SHIFT und TURRICAN 
II noch nicht besitzt, sollte schnell zu¬ 
greifen, SWIV als Bonus ansehen und 
SAINT DRAGON, na ja ... man 
braucht’s ja nicht zu spielen. 


MAX (MAXIMUM ,)2)3)4 » 
ACTION XTRA) 

Hersteller: US Gold 
Steuerung: Joystick oder Tastatur 
Voraussetzung: fUralleCPCs 
Preis: etwa 75 DM 

Anleitung: deutsch, englisch, französisch 
Bemerkung: Turrican 11 ist vor kurzem auch als 
Billigspielerschienen. 

Bewertung: 

SAINT DRAGON: 4 SWIV: 3 

TURRICAN II: 1 NIGHT SHIFT: I 


Vor ein paar Jahren sorgte auf dem C-64 
ein Programm namens IJRIDIUM 
kräftig für Furore. Ein grafisch blitz¬ 
sauberes Spiel hatte Programmierer 
Andrew Braybrook da hingelegt. Auch 
spielerisch hob cs sich angenehm von 
der Massen wäre ab. 

Wiedergeburt einer 
Legende 

Die Zeil verging, und die Computer- 
weit wartete gespannt auf die Ankündi¬ 
gung einer CPC-Version. Nichts ge¬ 
schah. Als man sich nach über einem 
Jahr bei Hewson dann dazu entschloß, 
das tapfere Schneiderlein mit einer 
Umsetzung zu bedenken, war es fast zu 
spät. Das Programm erschien von der 
Presse weitgehend unbeachtet und ver¬ 
kaufte sich mittelmäßig. 
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Jetzt ist die zweite Chance für URID1- 
UM gekommen, denn das Spiel liegt 
wiederveröffentlicht als Billigspiel 
vor. 

Die Story um eine Bedrohung des Son¬ 
nensystems durch bösartige Wesen 
wollen wir geflissentlich übergehen 
und schnell zum Spiel selbst kommen. 
Der Spieler steuert ein Mr/z/ta-Raum- 
schiff (Nein, das kann man nicht liefer¬ 
legen!), das über die Oberfläche von 
überdimensionalen Raumschiffen hin¬ 
wegdüst. Diese sind sehr langgezogen, 
so daß das Spielfeld horizontal scrolll. 
Wer jetzt meint, einfach bis zum Ende 
durchbrettern zu können und dann die 
Runde geschafft zu haben, täuscht sich. 
Zuerst mu ß ei ne besl i mm te Menge geg- 
nerischer Flieger abgeschossen wer¬ 
den. Erst dann darf man sich auf der 
Landebahn niederlassen und zum näch¬ 
sten Level vorrücken. 

Weltraum-Action einmal 
anders 

Die Geschwindigkeit des Mama isl re¬ 
gulierbar. Geübte Piloten legen den Jä¬ 
ger schief oder tauchen mit einer ra¬ 
schen 180-Grad-Wendung einfach un¬ 
ter den Feinden durch. Wenn allerdings 
eine Mauer im Weg ist. hilft nur Aus¬ 
weichen. Inleressanterweise ist eine 
Berührung der Feinde harmlos - solan¬ 
ge diese nicht schießen. Leidermangelt 
es den Burschen aber oft an Zurückhal¬ 
tung, und sie schießen im letzten Mo¬ 
ment doch aufdaseigene Raumschiff. 
Eine flotte Titelmelodie und zahlreiche 
Soundeffekte sind vorhanden. Leider 
wird die Farbenpracht des Computers 
nicht ausgenutzt, die Grafiken sind 
weitgehend einfarbig. Dennoch sorgen 


gelungene Schatteneffekte für einen 
räumlichen Touch. Sehr elegant ist 
auch, wie das Raumschiff beim Wen¬ 
den Loopings dreht oder sich 
schräglegt. Dagegen sehen die Feinde 
recht langweilig aus. 

Das Programm löst sich erfreulicher¬ 
weise von der Dutzendware durch ein 
eigenwilliges, dennoch actionlastiges 
Spielprinzip. Langanhaltender Spiel¬ 
spaß dürfte sicher sein. 


URIDIUM 2)3,41 

Hersteller: Rack it/IIewson 
Steuerung: Joystick odei Tastatur 
Voraussetzung: füralle CPCs 
Preis: etwa 60 DM 
Anleitung: englisch, französisch 

Bewertung: 

Grafik: 3 Präsentation: 3 

Sound: 2 Motivation: 2 

Endnotc: I 


Das Szenario von THUNDER JAYVS: 
Der Spieler soll in eine Festung unter 
Wasser eindringen. Denn gemäß eines 
teuflischen Plans, sollen genetische 
Mutanten die Welt erobern. Doch der 
Bösewicht ist diesmal eine Frau - Ma¬ 
dame Q. Da soll noch einer sagen, den 
Story-Schreibern würde nichts Neues 
mehreinfallen. 

Die eiskalte Madame Q 
läßt morden 

Genug der Vorrede, worum geht es al¬ 
so? Die vier Levels sind in jeweils zwei 
Abschnitte eingeteilt. Im ersten 
schwimmen Sie als Froschmann umher 
und wehren sich gegen Angreifer 


durch Schußwaffengebrauch. Der 
Bildschirminhalt scrollt dabei von 
rechts nach links. Der Ablauf gleicht 
den etwa 572 anderen Schießspielen 
dieser Art. TH UN DER JAWS ist höch¬ 
stens etwas langsamer. 

Ist man an einer Metalltür angelangt, 
geht's im Innern der Festung weiter. 
Wieder schießen, diesmal aber auch 
springen und ducken. Mit dem als Ex¬ 
tra-Waffe herumliegenden Flammen¬ 
werfer isl man schlechter bedient als 
mit dem normalen Schuß. 

Was auf dem Meeresgrund und in den 
Hallen liegt - vom Auto bis zum Über¬ 
rest eines abgesoffenen Flugzeugs - ist 
recht bunt, aber häufig doch etwas 
mickrig ausgefallen. 

Ebenso wie an der Originalität wurde 
an der Schwierigkeit gespart. Die End¬ 
gegner jedes Abschnitts sind beson¬ 
ders minderwertig ausgefallen. Wenn 
man nicht gerade ein Anfänger in Sa¬ 
chen Action-Spiel ist oder was zum 
“nebenbei mal schnell durchspielen'' 
sucht, sollte man von THUNDER 
JAWS Abstand nehmen. Das beste sind 
einige wirklich neue grafische Effekte 
bei der Ein- und Ausblendung von Bil¬ 
dern. 


THUNDER JAWS 2)3,4) 

Hersteller: Domark 
Steuerung: Joystick oderTastalur 
Voraussetzung: für alle CPCs 
Preis: etwa 55 DM 
Anleitung: deutsch, französisch 
Bemerkung: lädt nach 

Bewertung: 

Grafik: 3 Präsentation: 2 

Sound: 3 Motivation: 4 

Endnote: 4 




SWIV Steuern Sie einen Jeep oder einen Hubschrauber im Kampf URIDIUM - Nur wenn Sie genügend Feinde wegpusten, kommen Sie ans 
}>eften die feindliche Übermacht (MAX) Ziel! 
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THUNDER JAWS Lassen Sie sich von Madame Q's Schönheil nicht 
blenden und durchkreuzen Sie ihre Pläne 



ZAPT BALLS - TUE ADVANCED EDITION Technische Perfektion 
und brillantes Spielgeschehen 


Wenn sich ein bekannter Demoschrei¬ 
ber daran macht, ein Spiel zu program¬ 
mieren, darf man etwas Besonderes er¬ 
warten. Jetzt kommt ZAP’T’BALLS - 
THE ADVANCED EDITION in die 
Läden. 

Wie schon beim DATABOX-Spicl geht 
es darum, mit einem Zapper Bälle zu 
eliminieren. Große Bälle verschwin¬ 
den freilich nicht einfach so mir nichts, 
dir nichts. Sind sie getroffen, teilen sie 
sich in zwei kleinere Bälle. Erst die 
ganz kleinen Baby-Bälle können dann 
vollständig beseitigt werden. 

Kampf dem Fanatismus 

Eine leicht schrullige Story liegt dem 
Spiel zugrunde. Irgendein CPC-plus- 
Fanatiker kopierte sich selbst in den 
ASIC-Chip der Plus-Modelle, um von 
dort aus alle Computer ohne diesen 
Chip zu vernichten und so den Plus- 
Rechnern zum Durchbruch zu verhel¬ 
fen. Dieses Vorgehen ist nicht nur recht 
unfair, vor allem schadet es auch den al¬ 
ten CPCs. Deshalb machen sich Rum¬ 
se s und Columbus auf den Weg, drin¬ 
gen mittels eines Cartridges über den 
Modulschacht in besagten CPC plus 
ein. Als jetzt der Computer angeschal¬ 
tet wird, finden sich die beiden Helden 
in besagtem Spiel wieder und müssen 
sich darin bewähren. 

Neu an der “Advanced Edition" ist, daß 
es insgesamt 80 Levels in vier Welten 
mit jeweils unterschiedlichen Hinter¬ 
grundgraf iken i n Top-Q ual i tät g i bt. 

Hat man die erste Welt geschafft, be¬ 
kommt man ein Paßwort für Welt 2 und 
Welt 3. Am Ende dieser beiden Welten 
gibt es wieder Paßwörter. Nur wenn 
man beide hat, darf man die letzte der 


vier Welten betreten. Jede der Welten 
hat ihre Besonderheiten. In der Worldof 
Ice gibt es unter anderem Schneeball¬ 
maschinen. und bei schlechter Witte¬ 
rung schneit es gar. Auch Glatteis kann 
sich merklich auf die Steuerung der 
Spiel figur aus wirken. 

Die World of Fire hat neben vielen an¬ 
deren Überraschungen bewegliche 
Blöcke und Sandstürme zu bieten. Die¬ 
se Extravaganzen in der Kombination 
mit Leitern und Plattformen sorgen 
dafür, daß spielerisch jede Menge Ab¬ 
wechslung vorhanden ist. Musikalisch 
übrigens auch: eine Titelmelodie, die 
ersten der drei Welten haben eigene 
Musikstückchen, die auch gegen 
Sound-Effekte ausgetauscht oder mit 
diesen kombiniert werden können. 
Nicht einmal während des Ladens ist 
der Computer davon abzuhalten, Mu¬ 
sik zu machen. 

Technisch und 
spielerisch umwerfend 

Doch dies ist nicht das einzige techni¬ 
sche Kabinettstückchen. Ein mehr- 
minütiger Vorspann - der sich leider 
nicht abbrechen läßt - stellt sämtliche 
gängigen Programmierregeln auf den 
Kopf. Eine schier unbegrenzte Farben¬ 
pracht in Mode I, Overscan, kombi¬ 
niert mit Vektorgrafik und Laufschrif¬ 
ten. Damit hört es nicht auf. Wie viele 
Objekte auch auf dem Bildschirm sind, 
der Spielablauf ist rasant und ohne 
Ruckein. 

Dank der vielen Besonderheiten der 
einzelnen Levels, die mal Strategie, mal 
Geschwindigkeit, mal Reaktion oder 
einfach eine zündende Idee verlangen, 
ist für Abwechslung gesorgt. 


Der Schwierigkeitsgrad steigert sich, 
nach jedem zweiten Level gibt’s ein 
Zwischenpaßwort, das es erlaubt, das 
Spiel künftig dort fortzusetzen. Alles, 
was bisher gesagt wurde, wäre genug, 
das Programm mit Lob zu überschüt¬ 
ten. Dazu kommt noch, daß die High- 
scores automatisch auf Diskette ge¬ 
speichert werden. 

In den ersten drei Welten gibt es einen 
Modus, in dem zw'ei Spieler gleichzei¬ 
tig antreten können. Phantastisch - 
und das nicht etwa bloß, weil w ir den 
Vorgänger herausgebracht haben... 


ZAP’T’BALLS-THE 1131 
ADVANCED EDITION 

Hersteller: NoName EDV Service 
Steuerung: Spieler I Joystick,Spieler2 Tastatur 
Voraussetzung: 128 kBytc, nurauf Diskette er¬ 
hältlich 

Preis: etwa 5t) DM 

Anleitung: deutsch, englisch, französisch 
Bemerkung: T-Shirt gegen 5. DM Aufpreis 
erhältlich 
Bewertung: 

Grafik: I Bildschirmpräsenta- 

tion: 1 (Verpackung 
und endgültige Anlei¬ 
tung noch nicht vor¬ 
liegend) 

Sound: 1 Motivation: 1 

Endnote: I 


In einem ganz besonderen Pack wird 
der MANIX TWINS-Joystick zusam¬ 
men mit der Beau Jolly BIG BOX aus- 
geliefert. Schauen wir uns zuerst ein¬ 
mal den Joystick näher an. 
Genaugenommen handelt es sich hier 
nicht um einen, sondern um zwei mit¬ 
einander verbundene Sticks. Der Spie¬ 
ler hat ja schließlich zwei Hände. Der 
eine Griff hat diverse Knöpfe und 
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Schalter. Außereinem normalen Feuer¬ 
knopf können hier Dauerfeuer und 
Schnellfeuer für die einzelnen Buttons 
eingeschaltet werden. Leider funktio¬ 
niert das auf dem CPC nicht. In der an¬ 
deren Hand befindet sich der Griff mit 
einer Joypad-ähnlichen Konstruktion, 
die eine Steuerung in die verschiedenen 
Richtungen zuläßt. 

Diese recht bizarre Konstruktion hat 
während unseres Tests für alles Denk¬ 
bare gesorgt - nur nicht für gute Ergeb¬ 
nisse. So ist der Joystick nur denen zu 
empfehlen, die um jeden Preis etwas 
Originelles wollen, oder für solche, de¬ 
nen Computerspiele zu leicht sind und 
die so für neue Schwierigkeiten sorgen 
wollen. 

Nun ist da ja noch die BIG BOX. Sie 
verdient ihren Namen voll und ganz: 
nicht nur wegen ihrer Abmessungen, 
die reif fürs Guiness-Buch sind, son¬ 
dern auch, weil ganze 30 Spiele enthal¬ 
ten sind! 

Überraschenderweise ist die Qualität 
für so eine große Sammlung im Schnitt 
recht gut. Es finden sich fast alle Spiele, 
die ACriVISION und ELCTRIC 
DREAMS produziert haben. 

Manix Twins: Eine Kon¬ 
struktion für Maniker 

Eines der Highlights dürfte zweifellos 
SPlNDIZZYsein. Durch über 350drei¬ 
dimensionale Räume wird ein Kreisel 
(beziehungsweise eine Kugel oder ein 
Diamant) gesteuert. Damit sollten Ju¬ 
welen aufgesammelt, Schalter umge¬ 
legt und Abgründe vermieden werden. 
Im Kampf gegen Zeit und trickreiche 
Konstruktionen geht es um Geschick¬ 
lichkeit und Einfallsreichtum. Ihrem 
Forscherdrang sind durch den Umfang 
kaum Grenzen gesetzt. Inspiriert wurde 


das Spiel sicherlich von MARBLE 
MADNESS, doch das Spielprinzip 
wurde abgewandelt, und das Ergebnis 
wird von vielen als besser als das Vor¬ 
bild bezeichnet. Auch nach vielen Jah¬ 
ren noch ein Klassiker und eines der be¬ 
ste ti CPC-S pie le al 1er Ze i ten. 

Besser als das Vorbild 

Auch ENDLIRO RACER, ein Motor¬ 
radrennen gegen die Zeit, bei dem Sie 
oft hoch über Schanzen springen müs¬ 
sen. und SUPER SPRINT finden sich in 
der Sammlung. Bei letzterem sehen Sie 
die Rennstrecke von oben, können Ex¬ 
tras einsammeln. Beide Programme 
sind nicht mehr taufrisch, brauchen 
aber den Vergleich mit neueren Pro¬ 
grammen kaum zu scheuen. 

Technisch nicht gerade perfekt, aber 
abwechslungsreich sind KARNOV 
und WONDERBOY, bei denen sich ein 
Held durch eine scrollende Landschaft 
kämpft. Um echte Klassiker dürfte es 
sich bei GHOSTBUSTERS und 
HACKER II - eines der originellsten 
Spiele aller Zeiten-handeln. 

Für Strategiefans gibt es IIIGH FRON- 
HER (das Spiel zum SDI-Projekt) und 
GUADALCANAL. Sportfreunde wer¬ 
den mit CI IAMPIONSHIP BASE¬ 
BALL. BASKETBALL und FOOT¬ 
BALL versorgt. Mit SPACE SHUTT¬ 
LE liegt sogar eine Simulation bei. 
Natürlich sind auch ein paar Flops ent¬ 
halten, aber die Mehrzahl der Program¬ 
me ist m indes lens gu t er D li re hschni tt. 

Big Box: Qualität und 
Quantität 

Alle enthaltenen Spiele auf einem 
Blick: GHOSTBUSTERS, ENDURO 
RACER, HACKER, BIG TROUBLE 


IN LITTLE CHINA, WONDERBOY, 
GFL CHAMPIONSHIP FOOTBALL, 
GUADALCANAL, ALIENS. SPIN- 
DIZZY, RAMPAGE, BARRY McGUl- 
GAN WORLDCHAMPIONSIIIPBO- 
XING, EXPLORER. HOWARD THE 
DUCK, CHAMPIONSHIP BASKET¬ 
BALL, SUPER SPRINT, KNIGHT- 
MARE, SPACE SHUTTLE, THE RE¬ 
AL GHOSTBUSTERS, C.EE BEE AIR 
RALLY, CHAMPIONSHIP BASE¬ 
BALL, DANDY. MERMA1D 
MADNESS, STAR RAIDERS II, SAI- 
LING, PRODIGY, ISS, HIGH FRON¬ 
TIER, FIRETR AP. SUPER HANC. ON 
und KARNOV. 

Insgesamt gibt es nur einen Grund, 
warum man sich die BIG BOX nicht 
zulegen sollte: Bei 30 Spielen auf ein¬ 
mal, wann bleibt da noch Zeit für 
Schule, Freundin, Arbeit und Familie? 
Den Joystick kann man ja bei der näch¬ 
sten sich bietenden Gelegenheit an un¬ 
geliebte Verwandte weiterverschen¬ 
ken. 


BIG BOX und 
MANIX TWINS 3 ’ 5 ’ 

Hersteller: Beau Jolly undDynamix 

V or misset zu n j>: fü r a I le C PCs 

Preis: Big Box etwa 55 DM, Manix Twins etwa 

35 DM 

Anleitung: englisch 


Es gibt zwei Arten von Spielern. Die ei¬ 
nen wollen sich zwischendurch nur mal 
an einem Action-Spektakel abreagie¬ 
ren. Die anderen nehmen sich auch 
Zeit, um sich in komplexe Programme 
einzuarbeiten. Wenn Sie zu der zweiten 
Gruppe gehören, dann dürfte Sie unser 
Test von GUNSHIP interessieren. 

Über feindliches Gebiet in einem Hub¬ 
schrauber zu fliegen, strategisch wich- 
tigeZiele anzuvisieren und zu eliminie¬ 
ren, ist, wie man sich denken kann, 
nicht ganz einfach. Entsprechend ge¬ 
fordert sind auch die fliegerischen 
Fähigkeiten des Spielers. 

Simuliert wird ein AH-64A Apache 
Kampfhubschrauber, ein recht moder¬ 
nes Fluggerät. Da sind natürlich die 
Missionen vom moralischen Gesichts¬ 
punkt her etwas kritischer als bei Szena¬ 
rien aus dem zweiten Weltkrieg. Der 
Spieler wird überall dorthin geführt, wo 
sich die Amerikaner einmischen - also 
rund um den Globus. Besonders schön 
ist es dann auch zu lesen, daß in einem 
der Einsätze Deutschland als Schlacht¬ 
feld eines Kriegs zwischen NATO und 



SPINDIZZY - 
Raffinierte 31)-Puzz¬ 
les sind mit dem 
KreiseI zu bewältigen 
{Big Box) 
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Warschauer Pakt dieni. Glücklicher¬ 
weise hat die Geschichte hier einen an¬ 
deren Lauf genommen. 

Aber wir wollen hier keine moralischen 
Abhandlungen führen, sondern sehen, 
was das Programm bietet. Das ist näm¬ 
lich eine ganze Menge, da die Simulati¬ 
on nicht oberflächlich, sondern sehr de¬ 
tailliert ist. 

Luftkrieg über 
Deutschland 

Drehmoment und Treibstoff, Rotorab- 
kupplung und viele Instrumente zur 
Navigation, Tag- und Nachtflug sowie 
leicht lakonische Meldungen bei 
Mißerfolgen. Alles, was zu einer Hub¬ 
schraubersimulation gehört, findet 
man. Um Anfängern den Einstieg zu er¬ 
leichtern, gibt es einen Modus mit ver¬ 
ein fachter Steuerung. 

Fünf verschiedene Missionen sind 
nicht wahnsinnig viel, aber dank ab¬ 
gestuftem Schwierigkeitsgrad und 
zahllosen Realitätsniveaus doch für 
viele Flugstunden genug. Sound¬ 
mäßig gibt es die obligatorischen Ma¬ 
schinengeräusche und Schüsse sowie 
Explosionen. Die Landschaft, durch 
die Sie fliegen, ist grob, einfarbig und 
ohne Schattierungen. Schön und aus¬ 
führlich ist jedoch das Handbuch, das 
auch eine Menge Hintergrundinfor¬ 
mationen liefert. Auch eine Tastatur- 
schablone liegt bei. Sie wird auf die 
Tastatur gelegt, so daß neben jeder Ta¬ 
ste eine Beschreibung der Funktion 
steht. 

Simulator-Freunde mit einem CPC 
haben sowieso keine übergroße Aus¬ 
wahl. Wenn es etwas anderes als ein 
Flugzeug ist, das simuliert werden 
soll, lichten sich die Reihen noch mehr. 


Um so erfreulicher, daß GUNSHIP 
spielerisch last alle Wünsche befrie¬ 
digt. 


GUNSHIP 1,2,3141 

Hersteller: Microprose 

Steuerung: Tastatur oder Joystick und Tastatur 
Voraussetzung: für alle CPCs 
Preis: etwa 70 DM 

Bemerkung: Texte auf dem Bildschirm franzö¬ 
sisch. Tastaturschablonc englisch; lädt nach. 
Anleitung: deutsch 

Bewertung: 

Grafik: 4 Präsentation: 2 

Sound: 4 Motivation: 2 

Endnole:2 


Eines der ersten ernstzunehmenden 
Kampfsportspiele war THE WAY OF 
THE EXPLOD1NG FIST. Das jetzt 
w i eder verö ffe n 11 ichte INTERNA¬ 
TIONAL KARATE* ist eigentlich ei¬ 
ne Weiterentwicklung davon. Die Spie¬ 
lerfiguren sehen denen von EXPLO- 
DING FIST zum Verwechseln ähnlich. 
Inzwischen haben sie aber noch einige 
neue Kampftechniken und Bewegun¬ 
gen gelernt, darunter den eleganten 
Rückwärts-Flic-Flac. 

Drei Karatekas kämpfen 
um die höchsten 
Auszeichnungen 

Clou der Sache ist aber, daß sich nicht 
zwei, sondern drei Kämpfer auf dem 
Bildschirm tummeln. Der weiße 
Kämpfer wird vom ersten Spieler ge¬ 
steuert, der blaue vorn Computer. 
Wenn ein zweiter Spieler teilnimmt, 
steuert dieser den roten Karateka. 
Spielen Sie allein, übernimmt der 
Computer diese Aufgabe. Im Kampf 


heißt es dann jeder gegen jeden. Denn 
wer nach einer Kampfrunde das 
schlechteste Ergebnis hat, scheidet aus 
und wird von einem Computerkämpfer 
ersetzt. Natürlich werden sich mehrere 
menschliche Spieler dann doch ab¬ 
sprechen, zunächst den Computer 
fl achzulegen. 

Ebenfalls vom Vorbild EXPLODING 
FIST übernommen wurde ein Schieds¬ 
richter. der den Gewinner nennt, außer¬ 
dem das Bewertungssystem, das 
schwierige Schläge höher bewertet als 
einfache. In den höheren Levels ändert 
sich nicht viel, aber die Computergeg¬ 
ner werden geschickter, so daß man im¬ 
mer raffinierter Vorgehen muß, um sie 
zu besiegen. 

Raffiniertes Vorgehen 
ist gefragt 

Zwischen den Kämpfen gibt es Bonus¬ 
runden, in denen umherhüpfende Bälle 
abgewehrt werden sollen, um Bonus¬ 
punkte zu scheffeln. 

Das Hintergrundbild zeigt einen Son¬ 
nenuntergang, der sich in einem Ge¬ 
wässer spiegelt. Die Spiegelung der 
Sonne ist jedoch nicht starr, sondern be¬ 
wegt sich, um Wellen anzudeuten. Da¬ 
zu gibt es Kampfgeräusche, und eine 
Musik läuft im Hintergrund, die mit 
vielen Effekten aufwartet (wobei aller¬ 
dings die eigentliche Melodie etwas zu 
kurzkommt). 

Trotz der drei Kämpfer ist der Ablauf 
flott, und die 17 verschiedenen Schlag¬ 
techniken stellen sämtliche aktuellen 
Prügelspiele, die oft mit drei Schlägen 
auskommen, in den Schatten. Wer in 
EXPOLDING FIST geübt ist, hat we¬ 
nig Schwierigkeiten, sich bis zu höch¬ 
sten Auszeichnungen hochzukämpfen. 



GUNSHIP - Eine erstklassige Htibschrauhersimufation. 


INTERNATIONAL KARATE Holen Sie sich den höchsten Dan-Rang! 
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Alle anderen bekommen mit 1K+ das 
wohl beste Karatespiel für die kleinen 
Amstrads in die Hand. 


INTERNATIONAL 

KARATE 1 » 2 » 3 » 4 > 

Hersteller: HilSquail 

Steuerung: Joystick (Spieler I), Tastatur 
(Spieler 2) 

Voraussetzung: für alle CPCs 
Preis: etwa 60 DM 
Anleitung: deutsch, englisch 
Bewertung: 

Grafik: 2 Präsentation: 3 
Sound: 2 Motivation: 2 
Endnote: 2 


Auch wenn’s für Deutschland bei der 
Europameisterschaft nicht ganz zum 
Titel gereicht hat, kommen wir nun zu 
SOCCER 6. Hier sind auf einer Kas¬ 
sette gleich sechs verschiedene Fuß¬ 
bai Imanagement-Spiele zusammenge- 
faßt. Sinn der Sache ist, mit dem eige¬ 
nen Verein möglichst viel Erfolg zu ha¬ 
ben. Abgesehen von der sportlichen 
Seite rund ums Training, dreht sich 
auch alles ums liebe Geld. 

Je nachdem, welches Spiel man spielt, 
liegt der Schwerpunkt unterschiedlich. 
Training im einen, der Transfermarkt 
im anderen und taktische Erwägungen 
bei der Mannschaftsaufstellung im 
dritten. Ist ja alles schön und gut, aber 
ein Programm statt sechsen, dafür mit 
allen Funktionen vereint, hätte zwar zu 
weniger Masse, dafür aber mehr Klasse 
geführt. 

Gespielt wird 90 Minuten ... 

Eine kleine Kuriosität ist die Meldung 
während des Ladens, man solle doch 
bitte CAPS LOCK drücken. Schönen 
Gruß an die Programmierer: Der Befehl 
UPPERS - die Programme sind sämt¬ 
lich in BASIC, was aber nicht weiter 
stört - wandelt alle Eingaben in Groß¬ 
buchstaben um. Außerdem gibt’s einen 
POKE, der CAPS LOCK einschaltet. 
Warum also nicht eine dieser Möglich¬ 
keiten verwenden? 

... und der Ball ist rund! 

Daß auf dem Bildschirm keine Grafik, 
sondern nur Text zu sehen und keinerlei 
Sound vorhanden ist, läßt sich bei Ma¬ 
nagement-Spielen relativ leicht ver¬ 
schmerzen. Von einer eleganten ßenut- 
zerführung kann man kaum sprechen. 
Hier gibt es also ebenfalls keine Plus- 


SOCCER6 - 
Ein halbes Dutzend 
Managementspiele auf 
einen Streich 



punkte zu vergeben. 

Wer es nicht allzu komplex mag und 
sich an Managementspielen erfreut, be¬ 
kommt mit SOCCER 6 eine ganze 
Menge Futter. Die einzelnen Spiele un¬ 
terscheiden sich-soweit dies innerhalb 
dieses eng begrenzten Genres möglich 
ist - relativ stark. Leider ist aber keines 
der enthaltenen Programme in irgend¬ 
einer Form herausragend. So bleibt das 
positivste Merkmal der annehmbare 
Preis. 


SOCCER 6 1)3 » 4 » 

Hersteller: Challcnge 
Steuerung: Tastatur 
Voraussetzung: füralle CPCs 
Preis: etwa 60 DM 
Anleitung: englisch 
Bewertung: 

Grafik:- Präsentation: 5 
Sound:- Motivation: 4 
Endnotc: 3 


Der Gang ist kalt. Je weiter Tunis geht, 
desto düsterer wird es. Dann werden 
seine Befürchtungen wahr. Schwere 
Schritte nahen heran. Der erschöpfte 
Tunis wird vom selben Schicksal ereilt 
wie seine sieben Mitstreiter aus 
HEROS OF THE LANCE - im 
Kampf gefallen, in einem verlassenen 
Ende eines Verlieses, wo ihn nie je¬ 
mand finden w'ird. 

Wer soll nun die Disks of Mishkal 
in den Ruinen von Xak Tsaroth fin¬ 
den? Ohne sie wird es kaum möglich 
sein, den Glauben an die alten Götter 
wiederherzustellen. Dann wird die 
Königin der Nacht aus dem Abgrund 
heraufsteigen und die Welt in ewige 
Dunkelheit hüllen, das teuflischste 
Reich aufbauen, das es je gab. Schon 
ihre niedersten Kreaturen, die sie vor¬ 


geschickt hat, lassen wenig Gutes 
hoffen. 

Spätestens jetzt ist es wohl klar gewor¬ 
den, daß es sich bei HEROS OF THE 
LANCE um ein Fantasy-Spiel handelt. 
Als Vorlage dient die Advanced Dun¬ 
geons & Dragons (AD & D) Serie. 

Die klassischen Computerrollenspiele 
folgen meist zwei Schemata. Entwe¬ 
der wird die ganze Welt dreidimensio¬ 
nal aus der Sicht des Spielers darge¬ 
stellt - der bekannteste Vertreter die¬ 
ser Art ist BARD’S TALE. Oder, wie 
die ULTIMA-Serie, in Draufsicht. 
Häufig gibt es Adventure-Anleihen, 
das Ergebnis der Kämpfe wird durch 
den Zufall und die Charaktereigen¬ 
schaften bestimmt. 

Von diesen Formen löst sich nun 
HEROS OFTHE LANCE. Im Arcade- 
Adventure-Stil werden die Handlun¬ 
gen des Spielers von der Seite gezeigt. 
Alle Bewegungen, wie Laufen und 
Springen sowie Nahkampf und Angrif¬ 
fe aus größeren Entfernungen werden 
direkt mit dem Joystick ausgeführt. Das 
wird dann auch gleich in detaillierter, 
flüssig animierter Mode-1-Grafik ge¬ 
zeigt. Für speziellere Aktionen wie den 
Einsatz von Magic oder das Einsam¬ 
mein von herumliegenden Objekten 
wird mit der Leertaste ein Menü auf den 
Bildschirm geholt. 

Fantasy-Rollenspiel 
einmal anders 

Ein Kompaß zeigt an. wo sich welche 
Himmelsrichtung befindet. Das ändert 
sich nämlich, wenn man nicht nur links 
und rechts, sondern auch hoch und run¬ 
ter geht. Das zu beschreiben, ist recht 
aufwenig, wenn man spielt, merkt man 
aber bald, wie es funktioniert. Trotz¬ 
dem ist es unerläßlich, eine Karte zu 
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zeichnen. Sonst hat man sich bald hoff¬ 
nungslos verirrt. 

Um Erfolg zu haben, muß man die acht 
Figuren geschickt einsetzen. Für 
Faustkämpfe sollte man einen kampf¬ 
erprobten Haudegen vorschicken. Die- 
sererhält dann vielleicht magische Un¬ 
terstützung von einem körperlich 
schwachen Zauberer aus der hinteren 
Reihe. 

Das Suchen von Wegen und Gegen¬ 
ständen ist ein wichtiges Element des 
Spiels. Hinzu kommen Kämpfe, Ma¬ 
gie, Zaubertränke und Ringe, aber auch 
Anleihen aus dem Action-Sektor wie 
von der Decke fallende Steine. Weil die 
Aufgabe recht umfangreich ist, kann 
der Spielstand jederzeit gespeichert 
werden. 

Eine interessante Mischung und eines 
der gehaltvollsten Spiele, die jetzt als 
ßilligspiel wiederveröffentlicht wur¬ 
den. Wer die Fantasy-Spiel-Atmo- 
sphäre mag, bekommt mit HEROS OF 
THE LANCE ein Produkt, an dem er 
lange und mit Begeisterung zu knab¬ 
bern hat. 


HEROS OF THE LANCE 1 ' 31451 

Hersteller: Kixx 
Steuerung: Joystick und Tastatur 
Voraussetzung: iurallcCPCs 
Preis: etwa 60 DM 
Anleitung: englisch, italienisch 
Bemerkung: ladt nach 

Bewertung: 

Grafik: 3 Präsentation: 2 
Sound: 3 Motivation:! 

Fndnotc: I 


“Computerspiele sind hirnlos und 
führen zur Verblödung” lautet ein gän¬ 
giges Vorurteil. Schon fast so alt wie 


FIRST CLASS WITH 
THE SHOE PEOPLE - 
Daß man am 
Computer auch etwas 
lernen kann, beweist 
dieses Spiel für die 
ganz Kleinen 

Homecomputer sind auch elektroni¬ 
sche Vokabeltrainer, doch THE SHOE 
PEOPLE von Gremlin Graphics wen¬ 
det sich an die ganz Jungen. Als Alter 
der Zielgruppe ist 4 bis 6 Jahre angege¬ 
ben. 

Die Kinder sollen Gegenstände unter¬ 
scheiden und deren Namen lernen. 
Groß- und Kleinbuchstaben unter¬ 
scheiden und in niedrigen Zahlenbe- 
reichen addieren und subtrahieren ler¬ 
nen. Insgesamt sechs Teilprogramme 
gibt es, die alle verschiedene Fähigkei¬ 
ten trainieren sollen und jeweils noch 
einstellbare Schwierigkeitsstufen auf¬ 
weisen. 

Ein Extra-Bonbon zur Förderung der 
Kreativität soll das elektronische Mal¬ 
buch sein. Damit die ganze Sache Spaß 
macht, ist das Programm grafisch kind- 
gerecht und süß aufbereitet worden. 
Wenn eine Aulgabenstellung beson¬ 
ders erfolgreich gelöst wurde, gibt’s 
als Belohnung eine besondere grafi¬ 
sche Sequenz. Auch die Bedienung 
dürfte sogar den jüngsten Kids kaum 
Schwierigkeiten bereiten: ENTER und 
die LEERTASTE reichen meist aus. 

Papa, der Computer hat 
gesagt ... 

Ein kleines I leftchen und ein Anstecker 
mit den Hauptfiguren des Spiels liegen 
bei. Sie sind die Helden in englischen 
Kinderheftchen. Bei dem Wort “eng¬ 
lisch" sind wir aber auch gleich beim 
größten Haken des Spiels. Anleitung 
und Bildschirmtexte sind allesamt in 
Englisch gehalten. In unseren Breiten 
dürfte aber kaum ein Kind im entspre¬ 
chenden Alter des Englischen mächtig 
sein. 

Viele der Bildschirmanweisungen sind 
nur Einstellungen vor Spielbeginn, 


können also auch von einem Erwachse¬ 
nen vorgenommen werden. Doch bei 
vielen Übungen geht es auch um das 
Auffinden von passenden Wörtern. 
Diese Programmteile sind wohl nur 
dann brauchbar, wenn es darum geht, 
einen jungen Englischanfänger behut¬ 
sam an die neue Sprache heranzu¬ 
führen. 

Die anderen Übungen sind aber sicher 
für die Kleinen dank der hübschen Auf¬ 
bereitung interessant, so daß das Ler¬ 
nen quasi spielerisch und nebenbei er¬ 
folgt. Doch Achtung, auch kleine Kin¬ 
der sind oft schneller vom Computer 
und Spielen fasziniert, als den Ellern 
lieb ist, und auch dann nicht vom Auto¬ 
rennen oder Fußballspiel wegzubrin¬ 
gen, wenn der Papi gerade seine Text- 
verarbeilung braucht! 


FIRST CLASS WITH 
THE SHOE PEOPLE 31 

Hersteller: Gremlin Graphics 
Steuerung: Tastatur 

Voraussetzung: mindestens ein Kind im Alter 
von 4 bis6 Jahren, irgendein CPC 
Preis: etwa 60 DM 
Anleitung: englisch 


Andreas Lobcr/jg 


Die Muster stellten uns zur Verfü¬ 
gung: 

‘'NoNante EDV Service 
Weidenweg 14 
2905 Edewecht 

21 Weeske Computer-Elektronik 
Potsdamer Ring 10 
W-7150 Backnang 

■'EDV Obermeier 
Bünder Straße 20 
4972 Löhne 1 

41 Brost edt 
Computertechnik 
Harkortstr.54 
4690 Herne 2 

S) LYNX Versand 
Schevenstr. 24 
4650 Gelsenkirchen 1 
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Die Schwierige 

Patiencen legen mit Komfort 

Die Schwierige ist eine der schönsten und - wie der Name bereits sagt- 
schwierigsten Patiencen. Auch Sie können jetzt in den Genuß einer gelunge¬ 
nen Computerumsetzung kommen. 



Diese Patience wird mit 104 Karten be¬ 
stehend aus zwei Kartdendecks zu je 52 
Karten gelegt. Ihre Aufgabe besteht 
darin, auf den acht Assen aufsteigend 
über 2,3 bisX, B,Dund K die einzelnen 
Farben zu sammeln. In der Mitte bleibt 
der Platz für die acht Asse frei. Hierbei 
gilt, daß jeweils zwei gleiche nebenein¬ 
ander liegen dürfen. 

Oben beginnend mit Kreuz, darunter 
Pik, Herz und Karo. 

Von As bis König 

Zu Anfang werden acht Karten vom gut 
gemischten Kartenblock links und 
rechts in vier Reihen an die Plätze, die 
für die Asse freigehalten sind, angelegt. 
Jetzt kann der Spieler entscheiden, wel¬ 
chen Weg er wählt. Er kann Asse und 
später auf diese passende Folgekarten 
sofort auf die acht mittleren Stapel le¬ 
gen. Das geschieht, indem er erst die 
Ziffer der Reihe eingibt, aus welcher 
die Karte genommen werden soll. Dar¬ 
auf folgt der Buchstabe des Stapels, auf 
den er die Karte legen will. Es kann 
auch eine Karte in eine andere Reihe 


gelegt werden; vorausgesetzt, diese 
Reihe ist frei, oder die Karte paßt an die 
letzte dort bereits liegende. 

Eine Karte paßt, wenn sie in absteigen- 
derOrdnung angelegt werden kann. Al¬ 
so die Vier an die Fünf, Zehn (X) an den 
Buben (B) und so weiter. Zusätzlich 
muß sie aber auch noch die Farbe wech¬ 
seln. An eine rote Karte ( Herz oder Ka¬ 
ro) kann folglich nur eine schwarze 
(Pik oder Kreuz) angelegt werden. 

Karten in den Keller 

Kann man einmal nichts mit einer Karte 
anfangen, kann sie in den Keller (9+0) 
geschoben und dort auf Halde gehalten 
werden. Bei Bedarf nimmt man sie von 
dort einfach wieder heraus und legt sie 
in die entsprechende Reihe. 

Es ist auch erlaubt, Kauen im Block 
von einer Reihe in die andere zu brin¬ 
gen. 

Ein Block ist hier eine Folge von min¬ 
destens zwei aneinander passenden 
Kalten. Dazu gibt man erst die Ziffer 
der Reihe ein, darauf das Zeichen “+”. 
Nun kann mit “+” oder in der Reihe 
hin- und hergefahren werden. Hiermit 
sucht man die Karte aus, bis zu welcher 
der Block umgelegt werden soll. 

Durch Druck auf <ENTER> oder <RE- 
TURN> braucht nur noch die Reihe 
eingegeben werden, in die der Karlen- 


block kopiert werden soll. Es versteht 
sich von selbst, daß diese Operation 
nur von Reihe zu Reihe möglich ist. Be¬ 
dingung ist auch hier, daß die innerste 
Karte des Blocks an die äußere Karte 
der empfangenden Reihe paßt. 

Auf ein Neues 

Sind die ersten acht ausgelegten Karten 
genügend hin- und hergeschoben wor¬ 
den, können mit <ENTER> oder <RE- 
TURN> die nächsten acht Karten ange¬ 
fordert werden. Das geht so lange, bis 
alle 104 Karten ausgelegt sind. Dann 
kann durch geschicktes Umlegen wei¬ 
ter versucht werden, schließlich alle 
Karten von AS bis König auf den mitt¬ 
leren acht Stapeln zu versammeln. Da¬ 
mit ist das Spielziel erreicht. 

In der linken oberen Ecke wird immer 
angezeigt, wie viele Möglichkeiten zur 
Verfügung stehen. 

Günter Kramer/rs 


Übrigens: Das Programm PATIEN- 
CE.BAS muß immer vorgeladen 
werden. Um Ihnen die Vielfalt von 
Patiencen auf Ihren Monitor bringen 
zu können, finden Sie auf derDATA- 
BOX zwei weitere Varianten mit den 
Namen: "Zickzack-Kurs” und "Der 
Zopf’. 


<18> 100 ' Patience.Bas 

<20> 110 ' Joyce PCW 8256/8512/9512 

<22> 120 ' (c) 1992 Günter Kramer 

<50> 130 '. & CPC International 

<24> 140 GOSUB 1640 

<16> 150 PRINT cls$;cur.aus$; 

<66> 160 GOSUB 1760 

< 8> 170 GOSUB 2070 
<12> 180 GOSUB 260 

< 0> 190 GOSUB 430 
<39> 200 GOSUB 840 

<10> 210 PRINT cur.ein$;cls$ 

<28> 220 END 

<46> 230 ****************************** 
<57> 240 *** Variable + Dimensionen *** 
<50> 250 ****************************** 
<61> 260 DIM legen(12,52) 

<2l> 270 DIM ablage(io) 

<55> 280 DIM folget 103) 

<64> 290 DIM erstk(8) 

<76> 300 DIM pro$(3,2) 

< 5> 310 RESTORE 2300 
<30> 320 FOR i=l TO 3 


<53> 330 :. READ pro$(i,0),pro$(i,1) 

<71> 340 :. pro$(i,2)="0" 

<46> 350 NEXT 
<30> 360 FOR i=l TO 10 
<50> 370 :. ablage(i)=99 
<52> 380 NEXT 
<87> 390 RETURN 

< 0> 400 ***************** 

<70> 410 *** Titelbild *** 

< 4> 420 ***************** 

<86> 430 PRINT cls$; 

<71> 440 oben$=CHR$(150)+STRING$(5,154)+CHR$(156) 
<29> 450 oben$=oben$+SPACE$(43)+oben$ 

<19> 460 unten$=CHR$(147)+STRING$(5,154)+CHR$(153) 
<79> 470 unten$=unten$+SPACE$(43)+unten$ 

<76> 480 reihe$=CHR$(149)+SPACE$(5)+CHR$(149) 

<79> 490 rechts$=RIGHT$(reiheS,6) 

<21> 500 links$=LEFT$(reiheS,6) 

<59> 510 as$=CHR$(149)+SPACES(2)+CHR$(160)+SPACE$ ( 
2)+CHR$(149) 

<42> 520 as$=as$+SPACE$(17) + "Patiencen''+SPACE$(17) 
+as$ 

<37> 530 zeile=5:spalte=20 
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<39> 

540 

a$=oben$ 

< 2> 

550 

GOSUB 790 

<15> 

560 

zeile=6 

<28> 

570 

a$="A"+rechts$+SPACE$(43)+"A"+rechts$ 

< 8> 

580 

GOSUB 790 

< 2> 

590 

a$=CHR$(160)+rechts$+SPACE$(43)+CHR$(161) 


+rechts$ 

<15> 

600 

zeile=7 

<94> 

610 

GOSUB 790 

<62> 

620 

a$=as$ 

<32> 

630 

zeile=8 

< 1> 

640 

GOSUB 790 

<96> 

650 

a$=CHR$(161) 

<45> 

660 

spalte=73 

< 7> 

670 

GOSUB 790 

<23> 

680 

a$=links$+CHR$(160)+SPACE$(43)+links$+CHR 


$(161) 

<94> 

690 

zerle=9:spalte=20 

<93> 

700 

GOSUB 790 

<68> 

710 

PRINT FNcursorS(10,20)linksS"A"SPACE$(43) 


lmks$"A" 

<27> 

720 

PRINT FNcursorS(11,20)unten$ 

<85> 

730 

PRINT FNcursorS(12,40)"programmiert von" 

<90> 

740 

PRINT FNcursorS(14,41)"Günter. Kramer" 

<83> 

750 

RETURN 

<24> 

760 

******************* 

< 4> 

770 

*** Bildausgabe *** 

<28> 

780 

******************* 

< 3> 

790 

PRINT FNcursorS(zeile,spalte)a$ 

<7 4> 

800 

RETURN 

<15> 

810 

**************** 

<56> 

820 

*** Abfragen *** 

<19> 

830 

**************** 

<84> 

840 

a$=CHR$(134)+STRINGS(21,138)+CHRS(140) 

<83> 

850 

zeile=16:spalte=36 

< 7> 

860 

GOSUB 790 

<13> 

870 

a$=CHR$(133)+SPACES(21)+CHRS(133) 

<95> 

880 

FOR zeile=17 TO 24 

<56> 

890 

:. GOSUB 790 

<42> 

900 

NEXT 

<83> 

910 

a$=CHR$(131)+STRINGS(21,138)+CHR$(137) 

< 9> 

920 

zeile=25 

< 2> 

930 

GOSUB 790 

<51> 

940 

zeile=18:spalte=38 

<53> 

950 

a$="Bitte eingeben:" 

< 8> 

960 

GOSUB 790 

<58> 

970 

zeile=20 

<48> 

980 

FOR i=l TO 3 

< 2 > 

990 

a$=pro$(i,1) 

<56> 

1000 

b$=FIND$(pro$(i,0)) 

< 1> 

1010 

IF b$<>"" THEN GOSUB 790:zeile=zeile+ 


1:pro$(i,2)="l" 

<88> 

102C 

NEXT 

<12> 

1030 

a$="0 = Ende" 

< 8> 

1040 

GOSUB 790 

<79> 

1050 

a$="l" 

<37> 

1060 

WHILE a$="l" 

< 8> 

1070 

:. b$=INKEY$ 

< 8> 

1080 

IF b$="0" THEN PRINT cur.ein$:END 

<41> 

1090 

: . a=0 

<48> 

1100 

IF b$<>"" THEN a=VAL(b$) 

<83> 

1110 

IF pro$(a,2)="l" THEN a$="" 

<19> 

1120 

WEND 

<38> 

1130 

FOR i=0 TO 51 

<95> 

1140 

folge(i)=i 

<40> 

1150 

folge(i+52)=i 

< 3> 

1160 

NEXT 

<53> 

1170 

ON a GOSUB 1260,1430,1550 

< 1> 

1180 

a$="2" 

<16> 

1190 

WHILE a$<>"" 

<81> 

1200 

: . a$ = INKEY$ 

<18> 

1210 

WEND 

<51> 

1220 

CHAIN MERGE pro$(a,0),0,ALL,DELETE 

<15> 

1230 

********************************** 

<41> 

1240 

*** vorbereiten die Schwierige *** 

<21> 

1250 

********************************** 

<82> 

1260 

b=0 

<25> 

1270 

GOSUB 1320 

< 7> 

1280 

RETURN 

<96> 

1290 

************************ 

<72> 

1300 

*** sortieren Karten *** 

<74> 

1310 

************************ 

<37> 

1320 

FOR i=b TO 103 

<80> 

1330 

: . c=i 

<86> 

1340 

:. WHILE i=c 

<29> 

1350 

c=b+(INT(RND(1)*(104-b))) 

<85> 

1360 

:. WEND 

<87> 

1370 

SWAP folge(i),folge(c) 

<13> 

1380 

NEXT 


< 12 > 

<55> 

<82> 

<61> 

<42> 

<34> 

<39> 

< 9> 
<48> 
<35> 

< 18 > 
< 10 > 
<91> 
<81 > 
<55> 
<87> 
<50> 
< 11 > 
<4 7> 
<17> 
<37> 
<90> 
<50> 
<80> 
<56> 
<47> 
<50> 
<65> 
<40> 
<91> 
<62> 
<12> 
<94> 

<98> 
<7 6> 
<27> 
<82> 
<16> 

< 19 > 
<31> 
<23> 
<13> 
<40> 
<53> 
<91> 
< 11 > 
<34> 
< 71 > 
<77> 
<14> 
< 0 > 
<17> 
< 66 > 
< 22 > 

< 8 > 
<63> 
<76> 
<44> 
< 68 > 
<75> 
<28> 
<96> 
< 86 > 
< 66 > 
< 88 > 
<24> 
<96> 
<30> 
<87> 
<74> 
<44> 
< 78 > 
< 79 > 
<34> 
<33> 

<93> 

<41> 

< 4> 
<59> 
<53> 
<65> 
< 86 > 

< 3> 
<95> 
<76> 
<43> 


1390 RETURN 

1400 ********************************* 

1410 *** vorbereiten Zickzack-Kurs *** 

1420 ********************************* 

1430 b=8 

1440 FOR i=l TO 3 
1450 SWAP folge(i),folge(i*l3) 

1460 NEXT 
1470 FOR i=4 TO 7 

1480 SWAP folge(i),folge((i-3)*13-1) 

1490 NEXT 
1500 GOSUB 1320 
1510 RETURN 

1520 ************************ 

1530 *** vorbereiten Zopf *** 

1540 ************************ 

1550 b=8 

1560 FOR i=l TO 7 
1570 SWAP folge(i),folge(i*l3) 

1580 NEXT 
1590 GOSUB 1320 
1600 RETURN 

1610 ******************************** 

1620 *** Bildschirm-Steuerzeichen *** 

1630 ******************************** 

1640 esc$=CHR$(27) 

1650 home$=esc$+"H" 

1660 cls$=esc$+"E"+home$ 

1670 invers$=esc$+"p" 

1680 normal$=esc$+"q" 

1690 cur.ein$=esc$+"e" 

1700 cur.aus$=esc$+"f" 

1710 DBF FNcursor$(zeile,spalte)=esc$+"Y"+CHR 
$(32+zeile)+CHR$(32+spalte) 

1720 RETURN 

1730 ************************** 

1740 *** Zeichensatz ändern *** 

1750 ************************** 

1760 PRINT FNcursorS(15,40)"Bitte etwas Gedul 
d" 

1770 zeisa=HIMEM-30 

1780 MEMORY zeisa 

1790 zeisa=zeisa+l 

1800 RESTORE 2200 

1810 FOR i=zeisa TO zeisa+20 

1820 READ code$ 

1830 POKE i,VAL("&H"+code$) 

1840 NEXT 

1850 code=zeisa+9 

1860 POKE zeisa+l f code-INT(code/256)*256 
1870 POKE zeisa+2,INT(code/256) 

1880 code=zeisa+21 

1890 POKE zeisa+1O,code-INT(code/256)*256 
1900 POKE zeisa+11,INT(code/256) 

1910 RESTORE 2230 

1920 FOR i=160 TO 163 

1930 FOR j =0 TO 7 

1940 READ zeich 

1950 POKE code+j,zeich 

1960 a=i*8+&HB800+2“ 16 

1970 POKE zeisa+16,a-INT(a/256)*256 

1980 POKE zeisa+17,INT(a/256) 

1990 NEXT 
2000 CALL zeisa 
2010 NEXT 

2020 MEMORY HIMEM+30 
2030 RETURN 

2040 *************************** 

2050 *** Uhrzeit + RANDOMIZE *** 

2060 *************************** 

2070 stunde$=HEX$(PEEK(&HFBF6)) 

2080 minute$=HEX$(PEEK(&HFBF7)) 

2090 sekunde$=HEX$(PEEK(&HFBF8)) 

2100 stunde=VAL(stunde$) 

2110 minute=VAL(minute$) 

2120 sekunde=VAL(sekunde$) 

2130 RANDOMIZE (stunde+minute+sekunde)/(sekun 
2140 RETURN 


2150 folge(i+52)=i 
2160 NEXT 

2170 ******************************** 
2180 *** Datas Zeichensatz ändern *** 
2190 ******************************** 
2200 DATA 01 , f f , f f , cd, 5a, f C , e9, 00 , C9 
2210 DATA 21, ff,ff, 01,08,00,11, ff,ff 
2220 DATA ed,b0,c9 
2230 DATA 0,16,56,68,108,68,16,56 
2240 DATA 0,16,56,124,254,108,16,56 
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<74> 2250 DATA 0,108,254,254,124,56,16,0 
<76> 2260 DATA 0,16,56,124,254,124,56,16 
<28> 2270 ********************* 

<95> 2280 *** weitere Datas *** 

<34> 2290 ********************* 

<24> 2300 DATA "schwieri.bas","1 = Die Schwierige” 
< 9> 2310 DATA "zickzack.bas","2 = Zick-zack-Kurs" 
<47> 2320 DATA "zopf.bas","3 = Der Zopf" 


<18> 

100 

' Schwieri.Bas 



<20> 

110 

' Joyce PCW 8256/8512/9512 



<22> 

120 

' (c) 1992 Günter Kramer 



<50> 

130 




<87> 

140 

GOSUB 610 



< 6> 

150 

GOSUB 260 



<52> 

160 

GOSUB 660 



<95> 

170 

GOSUB 1160 



<60> 

180 

a$=" " 



< 7> 

190 

WHILE a$="" 



<94> 

200 

:. a$=INKEY$ 



<82> 

210 

WEND 



<69> 

220 

RUN "patience.bas" 



< 4> 

230 

***************** 



<65> 

240 

*** titelbild *** 



< 8> 

250 

***************** 



<96> 

260 

PRINT cls$ 



<72> 

270 

FOR k=0 TO 12 



<16> 

280 

:. FOR i=0 TO 3 



<90> 

290 

:. :. zeile=8*i 



<76> 

300 

karte=i*13+k 



<39> 

310 

:. :. spalte=k*6+5 



<81> 

320 

GOSUB 1640 



< 7> 

330 

:. NEXT 



<44> 

340 

NEXT 



<86> 

350 

a$="invers" 



<29> 

360 

IF invers=0 THEN a$="normal" 



<27> 

370 

PRINT "Fl = Karten "a$" ausgeben - 

- 

ande 


re Taste = weiter" 



<84> 

380 

zeile=6:spalte=l7 



< 1> 

390 

a$="Die Schwierige" 



<29> 

400 

GOSUB 1920 



<58> 

410 

a$="Programmiert von" 



<49> 

420 

zeile=14:spalte=36 



<35> 

430 

GOSUB 1920 



< 5> 

440 

zeile=22:spalte=57 



<27> 

450 

a$="Günter. Kramer" 



<41> 

460 

GOSUB 1920 



<38> 

470 

WHILE a$<>"" 



<13> 

480 

:. a$=INKEY$ 



< 1> 

490 

WEND 



<92> 

500 

WHILE a$="" 



< 0> 

510 

:. a$=INKEY$ 



<65> 

520 

IF a$<>CHR$(26) THEN 560 



<46> 

530 

a$="" 



<61> 

540 

:. IF invers=0 THEN invers$=esc$+' 

q' 

:inve 


rs=3 

:GOTO 270 



<76> 

550 

:. invers=0:invers$=esc$+"p":GOTO 

270 

<95> 

560 

WEND 



<85> 

570 

RETURN 



<44> 

580 

*******■*'********'*’■*'** 



<66> 

590 

*** Definitionen *** 



<29> 

600 

******************** 



<53> 

610 

DEF FNcursorS(zeile,spalte)=esc$+' 

Y 11 

+CHRS 


(32+zeile)+CHRS(32+spalte) 



<32> 

620 

RETURN 



<95> 

630 

********************* 



<73> 

640 

*** Bild aufbauen *** 



< 0> 

650 

★ ****■**■■*•■*:**'****■****■■** 



<94> 

660 

PRINT cls$; 



<67> 

670 

FOR i=l TO 30 



<42> 

680 

:. a=149 



<59> 

690 

:. b=32 



<76> 

700 

IF ((i MOD 6)=0) AND (i<30) THEN 

a=159 


:b= 

154 



< 1> 

710 

c=b:d=b:e=b:f=b 



<12> 

720 

IF ((i MOD 6)=3) AND (i<24) THEN 

C=49 + 


INT(i/6):d=c+4:e=c+l6+INT(i/6):f=e+l 



A 

•J3 

V 

730 

:. a$=STRING$(36,b)+CHR$(c)+CHR$(a)+CHR$( 


e)+STRINGS(11,b)+CHR$(f)+CHR$(a)+CHR$(d)+STRI 


NG$(36,b) 



<84> 

740 

:. PRINT a$ 



<50> 

750 

NEXT 



< 3> 

760 

zeile=24 



<11> 

770 

spalte=52 




< 11 > 
<50> 
<18> 
< 6 > 
< 2 > 
<39> 
<16> 
<26> 
<48> 
<47> 
< 86 > 
<46> 
<98> 
<36> 
<46> 
<47> 
<59> 
<44> 
<79> 
<67> 

< 3> 
<52> 
<78> 
<41> 
<23> 
<47> 
<27> 
<62> 
<96> 
<80> 
<67 > 
<29> 
<84> 

< 3> 
< 86 > 
<49> 
<29> 
<55> 

< 3> 

< 0 > 

< 9> 
<40> 
<24> 
<91> 
<40> 
<94> 
<28> 

< 1 > 
<24> 
<37> 
<30> 
<67> 
< 88 > 
<97> 
<64> 
< 22 > 
<16> 
<77> 
<17> 
<67> 
< 12 > 
<73> 
<90> 
< 6 > 

< 9> 

< 6 > 
<14> 
< 0> 
< 20 > 
<35> 
<25> 
< 1> 
<84> 
<91> 
<75> 
<55> 

<51 > 
<14> 
<59> 
<96> 
<24> 

<16> 

< 90 > 

<62> 

<49> 

< 68 > 

<34> 


780 a$="Die Schwierige - eine Patience" 

790 GOSUB 1920 

800 a$="programmiert für" 

810 zeile=25 
820 spalte=52 
830 GOSUB 1920 

840 a$="CPC Amstrad International" 

850 zeile=26 
860 spalte=64 
870 GOSUB 1920 
880 a$="von" 

890 zeile=27 

900 spalte=52 

910 GOSUB 1920 

920 a$="Günter Kramer" 

930 zeile=28 

940 spalte=56 

950 GOSUB 1920 

960 a$ = "9" + SPACE$(4) + "0" 

970 zeile=29 
980 spalte=42 
990 GOSUB 1920 
1000 RETURN 

1010 ************************* 

1020 *** löschen Meldungen *** 

1030 ************************* 

1040 a$=SPACE$(37) 

1050 zeile=24:spalte=0 
1060 GOSUB 1920 
1070 PRINT 

1080 FOR loesch=25 TO 28 
1090 :. PRINT a$ 

1100 NEXT 
1110 PRINT a$; 

1120 RETURN 

1130 ******************* 

1140 *** Spiel läuft *** 

1150 ******************* 

1160 phase=l 

1170 FOR i=0 TO 12 

1180 FOR ablag=l TO 8 

1190 karte=folge(i*8+ablag-l) 

1200 :. :. GOSUB 1970 
1210 :. NEXT 

1220 : . IF i=12 THEN 1300 

1230 GOSUB 1040 

1240 GOSUB 2560 

1250 GOSUB 1040 

1260 IF b$=CHR$(13) THEN 1300 

1270 GOSUB 2890 

1280 IF b$=CHR$(13) THEN 1300 

1290 GOTO 1230 

1300 NEXT 

1310 GOSUB 1040 

1320 FOR i=l TO 10 

1330 zeile=26 

1340 :. spalte=o 

1350 :. aS="Alle Karten aufgelegt" 

1360 GOSUB 1920 
1370 :. PRINT CHR$(7) 

1380 GOSUB 1040 
1390 :. PRINT CHR$(7) 

1400 NEXT 

1410 phase=2 

1420 GOSUB 2560 

1430 GOSUB 1040 

1440 IF b$=CHR$(13) THEN 1600 

1450 GOSUB 2890 

1460 IF b$=CHR$(13) THEN 1600 

1470 IF geschafft<8 THEN GOTO 1420 

1480 zeile=13 

1490 spalte=0 

1500 a$=CHR$(134)+STRINGS(25,138)+CHR$ (140) 
1510 GOSUB 1920 
1520 PRINT 

1530 PRINT CHR$(133)" Herzlichen Glückwunsch1 
"CHR$(133) 

1540 PRINT CHR$(131)STRINGS(25,138)CHR$(137) 
1550 GOSUB 1040 
1560 zeile=25 
1570 spalte=0 

1580 a$=esc$+"r"+"Weiter mit beliebiger Taste 
"+esc$+"u" 

1590 GOSUB 1920 
1600 RETURN 

********************** 


1610 
1620 
1630 

1640 farb$=CHR$<!60+iNT(karte/i3)) 


*** Karte ausgeben *** 
********************** 
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<44> 1650 IF karte<26 THEN PRINT inversS 
<72> 1660 a=l+(karte MOD 13) 

<95> 1670 bild$=CHR$(a+48) 

<66> 1680 IF a=10 THEN bild$="X" 

< 4> 1690 IF a=ll THEN bild$="B" 

<43> 1700 IF a=12 THEN bild$="D" 

<42> 1710 IF a=13 THEN bild$="K" 

<46> 1720 IF a=l THEN bild$="A" 

<73> 1730 a$=CHR$(150)+bild$+STRING$(1,154)+bild$+ 
CHR$(156) 

< 5> 1740 GOSUB 1920 
<46> 1750 zeile=zeile+l 

<19> 1760 a$=CHR$(149)+farb$+SPACE$(1)+farb$+CHR$( 
149) 

<14> 1770 GOSUB 1920 
<55> 1780 zeile=zeile+l 

<35> 1790 a$=CHR$(149)+CHR$(32)+farb$+CHR$(32)+CHR 
$(149) 

<94> 1800 GOSUB 1920 
<36> 1810 zeile=zeile+l 

<73> 1820 a$=CHR$(149)+SPACES(3)+CHR$(149) 

< 4> 1830 GOSUB 1920 
<45> 1840 zeile=zeile+l 

<19> 1850 a$=CHR$(147)+STRINGS(3,154)+CHRS (153) 

<13> 1860 GOSUB 1920 

<83> 1870 PRINT normalS 

<19> 1880 RETURN 

<81> 1890 ******************* 

<65> 1900 *** Bildausgabe *** 

<59> 1910 ******************* 

<95> 1920 PRINT home$;FNcursorS(zeile,spalte);a$; 

< 6> 1930 RETURN 

<32> 1940 ********************* 

<61> 1950 *** Karte ablegen *** 

<38> 1960 ********************* 

<87> 1970 IF ablag<9 THEN GOSUB 2120 

< 5> 1980 IF ablag>8 THEN GOSUB 2030 
<24> 1990 RETURN 

< 12 > 2000 *************************************** 
<62> 2010 *** Karte auf Stapel oder in Keller *** 
< 18 > 2020 *************************************** 
<89> 2030 IF ablag>l0 THEN ablag=ablag-l0 
<17> 2040 zeile=6*INT((ablag-1)/2) 

<40> 2050 spalte=((ablag-1) MOD 2)*6+39 

<86> 2060 GOSUB 1640 

<96> 2070 ablage(ablag)=karte 

< 4> 2080 RETURN 

<75> 2090 ********************** 

<37> 2100 *** Karte in Reihe *** 

<53> 2110 ********************** 

<30> 2120 anzahl=legen(ablag,0)+l 

< 4> 2130 legen(ablag,anzahl)=karte 
<94> 2140 zeile=6*((ablag-1) MOD 4) 

< 0> 2150 spalte=33:zu=-2:pfeil=36 

<89> 2160 IF ablag>4 THEN spalte=52:zu=2:pfeil=53 

<68> 2170 Iegen(ablag,0)=anzahl 

<19> 2180 legen(ablag,anzahl)=karte 

<14> 2190 spaltel=spalte 

< 22 > 2200 spalte=spalte+zu*anzahl 

<61> 2210 IF anzahl<17 THEN GOSUB 1640:RETURN 

<47> 2220 zeilel=zeile 

<28> 2230 FOR ab=l TO 16 

<96> 2240 :. spalte=spaltel+ab*zu 

<72> 2250 :. zeile=zeilel 

<48> 2260 karte=legen(ablag,ab+anzahl-16) 

< 5> 2270 :. GOSUB 1640 
<12> 2280 NEXT 

<62> 2290 spalte=pfeil 
<58> 2300 zeile=zeile-l 
<40> 2310 a$=CHR$(253) 

< 6> 2320 IF ablag>4 THEN a$=CHR$(252) 

< 4> 2330 IF anzahl=16 THEN a$=CHR$(32) 

<97> 2340 GOSUB 1920 

< 1> 2350 RETURN 

<45> 2360 ****************** 

<57> 2370 *** Spielende. *** 

<51> 2380 ****************** 

<68> 2390 b$=a$ 

<97> 2400 IF (phase=l) OR (block>0) THEN 2520 

< 1> 2410 GOSUB 1040 

<73> 2420 a$ = "Spielende?" 

<49> 2430 zeile=25 
<86> 2440 spalte=0 

< 3> 2450 GOSUB 1920 
<41> 2460 b$="l":a$ = "" 

<61> 2470 WHILE b$="l" 

<44> 2480 a$=UPPER$(INKEY$) 

<28> 2490 IF a$="J" THEN b$=CHR$(13) 


<9 2> 
<25> 
<95> 
<55> 
<74> 
<61> 
<18> 
<45> 
<53> 

< 4> 
<91> 
<75> 
<69> 
< 10 > 
<34> 

<62> 

< 72 > 

<39> 

<15> 

<41> 

<76> 

<29> 

< 0 > 
<71> 

< 7> 
<77> 
<52> 
< 22 > 

<41 > 

<45> 

<53> 
<48> 
<30> 
<45> 
<7 0> 
< 11 > 
<37> 
< 66 > 
<43> 
<78> 
<61> 
<69> 
<64> 
<43> 

<71> 

< 9> 
<70> 


<97> 

<95> 

<93> 
<43> 
< 34> 
<58> 

<57> 

<46> 

<39> 

<59> 

<80> 

<44> 

<76> 

<64> 

<75> 

< 21 > 

<91> 

<18> 

<97> 

<24> 

<34> 

<87> 


2500 IF a$="N" THEN b$="" 

2510 WEND 
2520 RETURN 

2530 *********************** 

2540 *** Karte aufnehmen *** 

2550 *********************** 

2560 GOSUB 1040 

2570 a$="Bitte eine Karte aufnehmen" 

2580 zeile=24 
2590 spalte=0 
2600 GOSUB 1920 
2610 PRINT 

2620 PRINT "Eingeben: 1 - 8... = Reihe"" 

2630 PRINT SPC(10);"9 oder 0 = Keller"" 

2640 IF phase=l THEN PRINT SPC(10);"RETURN.. 

= weiter auflegen" 

2650 IF phase=2 THEN PRINT SPC(10);"RETURN = 
Spielende" 

2660 b$="" 

2670 WHILE b$="" 

2680 :. a$=INKEY$ 

2690 IF a$=CHR$(13) THEN 2390 

2700 IF (a$>"/") AND (a$<":") THEN GOSUB 2 

760 

2710 WEND 
2720 RETURN 

2730 ********************************* 

2740 *** Prüfen aufgenommene Karte *** 

2750 ********************************* 

2760 aufnehmen=VAL(a$):von$=a$ 

2770 IF (aufnehmen=0) OR (aufnehmen=9) THEN 2 
810 

2780 karte=legen(aufnehmen,legen(aufnehmen, 0 ) 

2790 IF legen(aufnehmen,0)>0 THEN 2840 ELSE 2 
850 

2800 IF a$=CHR$(13) THEN b$="OK" 

2810 IF a$="0" THEN aufnehmen=10 
2820 karte=ablage(aufnehmen) 

2830 IF ablage(aufnehmen)>52 THEN 2850 
2840 b$="OK" 

2850 RETURN 

2860 ********************* 

2870 *** Karte ablegen *** 

2880 ********************* 

2890 a$="Wohin Karte aus Reihe "+von$+"?" 

2900 block=0 

2910 zeile=24:spalte=0 

2920 GOSUB 1920:PRINT 

2930 IF block=0 THEN PRINT "Eingeben: 0 - 9 = 
Reihe oder Keller" 

2940 IF block>0 THEN PRINT "Eingeben: 1 - 8 = 
Reihe" 

2950 IF block=0 THEN PRINT SPC(10)"A - H = St 
apel" 

2960 IF (block=0) AND (aufnehmen<9) AND (lege 
n(aufnehmen,0)>1) THEN PRINT SPC(10)"+.... = 
Block umlegen" 

2970 IF phase=2 THEN PRINT SPC(10)"RETURN = n 
icht anlegen" 

2980 IF phase=l THEN PRINT SPC(10)"RETURN = w 
eiter auflegen" 

2990 c$="" 

3000 b$="" 

3010 WHILE (b$="") OR (b$="l") 

3020 :. IF b$o"l" THEN a$=UPPER$ (INKEY$) ELS 
E b$="" 

3030 :. IF (a$>"/") AND (a$<":") AND (block=0 
) THEN GOSUB 3170 

3040 :. IF (a$>"0") AND (a$<"9") AND (block>0 
) THEN GOSUB 4620 

3050 :. IF (a$>"@") AND (a$<"I") AND (block=0 
) THEN GOSUB 3200 

3060 :. IF (a$=CHR$(13)) AND (phase=l) THEN 2 
390 

3070 :. IF aufnehmen>8 THEN 3110 

3080 :. IF 1egen(aufnehmen,0)<2 THEN 3110 

3090 IF ((a$=CHR$(22)) OR (a$=CHR$(43))) A 

ND (block=0) THEN GOSUB 4080 

3100 IF C$="FE" THEN 2890 

3110 :. IF b$="FE" THEN GOSUB 3870 

3120 WEND 

3130 RETURN 

3140 ********************* 

3150 *** prüfen Ablage *** 

3160 ********************* 

3170 ablaq=VAL(a$) 

3180 IF a$="0" THEN ablag=10 
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<82> 

< 7> 
<44> 
<17> 
<64> 
<23> 
<89> 

< 10 > 

<46> 

<32> 

<73> 

<96> 

<89> 

<13> 

<85> 

< 7> 

< 1 > 
<38> 
<26> 

<98> 

<76> 

<59> 

<57> 

<31> 

< 3> 

< 1 > 
<27> 
<89> 
<33> 
< 11 > 
<58> 

< 4> 
<51> 
<44> 
<42> 
<38> 

< 7> 

<15> 

<17> 

<67> 

< 22 > 

<27> 


3190 GOTO 3210 
3200 ablag=ASC(a$)-54 
3210 nach$=a$ 

3220 IF ablag>8 THEN 3290 
3230 IF legen(ablag,o)=o THEN 3390 
3240 kartel=legen(ablag,legen(ablag,0)) 

3250 IF INT (karte/26)=INT(kartel/26) THEN 343 

3260 a=(kartel MOD 13)-(karte MOD 13) 

3270 IF (a=l) OR (a=-12) THEN 3390 
3280 GOTO 3430 
3290 IF ablagcll THEN 3380 
3300 IF ablage(ablag-10)>51 THEN 3360 
3310 kartel=ablage(ablag-10) 

3320 IF INT(karte/13)<>INT(kartel/13) THEN 34 

3330 a=(karte MOD l3)-(kartel MOD 13) 

3340 IF (a=l) AND ((karte MOD 13)=12) THEN ge 

schafft=geschafft+l 

3350 IF a=l THEN 3390 ELSE 3430 

3360 IF (karte MOD 13)<>0 THEN 3430 

3370 IF INT((ablag-11)/2)=INT(karte/13) THEN 

3390 ELSE 3430 

3380 IF ablage(ablag)<51 THEN 3430 
3390 b$="OK" 

3400 GOSUB 1970 

3410 IF block=0 THEN GOSUB 3480 
3420 GOTO 3440 
3430 b$="FE" 

3440 RETURN 

3450 ********************* 

3460 *** Karte löschen *** 

3470 ********************* 

3480 IF aufnehmen>8 THEN 3770 

3490 a=legen(aufnehmen,0)-l 

3500 zeile=6*INT((aufnehmen-l) MOD 4) 

3510 zeilel=zeile 
3520 spalte=33 
3530 zu=-2 
3540 pfeil=36 

3550 IF aufnehmen>4 THEN spalte=52:zu=2:pfeil 

3560 legen(aufnehmen,0)=a 
3570 spaltel=spalte 
3580 spalte=spalte+zu*a 
3590 ablag=aufnehmen 

3600 anzahl=legen(ablag,0). 


<87> 3610 IF a>15 THEN 2220 

<64> 3620 spalte=spalte+zu 

<68> 3630 FOR zeile=zeilel TO zeilel+4 

<29> 3640 a$=SPACE$(5) 

<22> 3650 :. GOSUB 1920 

<15> 3660 NEXT 

<25> 3670 IF a=0 THEN 3830 

<67> 3680 zeile=zeilel 

<24> 3690 spalte=spalte-zu 

<48> 3700 karte=legen(aufnehmen,a) 

<86> 3710 GOSUB 1640 
<55> 3720 a$=CHR$(32) 

<76> 3730 zeile=zeile-l 

<58> 3740 spalte=pfeil 

<10> 3750 GOSUB 1920 

<84> 3760 GOTO 3830 

<5.9 > 3770 ablage (aufnehmen) = 99 

<67> 3780 zeilel=24 

<54> 3790 spalte=39 

<89> 3800 IF aufnehmen=l0 THEN spalte=45 

<75> 3810 a=0 

<50> 3820 GOTO 3630 

< 6> 3830 RETURN 

<32> 3840 ********************* 

<16> 3850 *** Fehlermeldung *** 

<38> 3860 ********************* 

<70> 3870 zeile=25 
<60> 3880 spalte=0 
<60> 3890 a$=SPACE$(37) 

<98> 3900 GOSUB 1920 

<91> 3910 PRINTrPRINT a$:PRINT a$:PRINT a$ 

<58> 3920 a$="von "+von$+" nach "+nach$+" nicht mö 
glich" 

<73> 3930 zeile=26 
<97> 3940 spalte=0 
<14> 3950 GOSUB 1920 
<97> 3960 PRINT 

<42> 3970 PRINT "neues Ziel eingeben, oder RETURN" 
<25> 3980 b$="2" 

<94> 3990 WHILE b$="2" 


<14> 4000 a$=UPPER$(INKEY$) 

<43> 4010 IF a$=CHR$(13) THEN b$="OK":a$="" 

<72> 4020 IF a$<>"" THEN b$="l" 

<23> 4030 WEND 
<93> 4040 RETURN 

<53> 4050 *********************** 

<60> 4060 *** Block auswählen *** 

<59> 4070 *********************** 


<76> 
<34> 
<71> 
< 0 > 
< 0> 
<83> 
<35> 
<85> 
< 2 > 
<85> 
<35> 
<47> 
<52> 
<57> 
<77> 
<33> 

< 3> 
<96> 

< 1 > 
< 0> 
<63> 
< 86 > 
<92> 

<64> 

<74> 

<96> 

<61> 

< 88 > 

< 5> 
<52> 
<92> 

< 10 > 

< 1 > 
<77> 
<86> 
<24> 

< 13 > 
< 88 > 

< 19 > 
<95> 
<4 6> 
<55> 

<78> 

<47> 

<84> 

< 1 > 
<84> 
< 91 > 
< 22 > 
<46> 
<16> 

< 6 > 
<19> 
<83> 
<89> 
<26> 
<20> 
<79> 

< 29> 
<21> 

< 8 > 
<62> 
<80> 
<59> 
<91> 
<17> 

<47> 

<77> 

<18> 

<60> 

<35> 

< 66 > 

<61> 

< 1> 


4080 block=legen(aufnehmen,0)-l 
4090 anzahl=block 
4100 ende=anzahl-l5 
4110 IF ende<2 THEN ende=2 
4120 GOSUB 1040 


'+von$+" bis:" 


4130 a$="Reihe 
4140 zeile=24 
4150 spalte=o 
4160 GOSUB 1920 
4170 PRINT 

4180 PRINT "+ = vorwärts" 
4190 PRINT = zurück" 
4200 PRINT "RETURN 


4210 C$="" 

4220 a$="l" 

4230 WHILE c$="" 


ablegen" 


karte=legen(aufnehmen,block) 
zeile=24 
spalte =18 
IF a$="" THEN 4360 
IF a$="-" THEN 4330 
karte1=legen(aufnehmen,block+l) 

IF INT(karte/26)=INT(kartel/26) THEN 
block=block+l:GOTO 4340 

4310 a=(karte MOD 13)-(kartel MOD 13) 

4320 IF (a<>l) AND (ao-12) THEN block=blo 
Ck+l:GOTO 4340 


4240 

4250 

4260 

4270 

4280 

4290 

4300 


4330 
4340 : 
4350 : 
4360 : 
4370 : . 
4380 
N 4410 
4390 : , 
N 4450 
4400 
4410 
4420 :. 
4430 :. 
4440 : . 
4450 : . 
4460 
4470 


GOSUB 1640 

IF a$="l" THEN C$="FE":GOTO 4480 
a$ = " " 
a$=INKEY$ 

IF a$=CHR$(13) THEN C$="OK":GOTO 4480 
IF (a$=CHR$(22)) OR (a$=CHR$(43)) THE 

IF (a$=CHR$(28)) OR (a$=CHR$(45)) THE 

GOTO 4480 
a$="+" 

IF block<ende THEN 4340 
block=block-l 
GOTO 4480 

IF block>anzahl THEN 4340 
a$="-" 

block=block+l 
4480 WEND 

4490 IF c$="FE" THEN GOSUB 1040:b$="OK":GOTO 
4580 

4500 a$=SPACE$(16) 

4510 zeile=25 
4520 spalte=0 
4530 GOSUB 1920 
4540 PRINT 
4550 PRINT a$ 

4560 PRINT "in welche Reihe?" 

4570 karte=legen(aufnehmen,block) 

4580 RETURN 


4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

P-l 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 


************************ 

*** umlegen im Block *** 
************************ 

GOSUB 3170 

IF b$="FE" THEN 4810 

ende=block+l 

IF ende>legen(aufnehmen,0) THEN 4710 
a$=nach$ 

karte=legen(aufnehmen,ende) 

GOSUB 3170 
ende=ende+l 
GOTO 4650 

ende=legen(aufnehmen, 0 )-block 
IF ende>l5 THEN 4780 

FOR ende=legen(aufnehmen,0) TO block STE 

legen(aufnehmen, 0 )=ende 
:. GOSUB 3480 
NEXT 

GOTO 4800 

legen(aufnehmen, 0 )=anzahl +1 

GOSUB 3480 

block =0 

RETURN 
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Preiswert geplottet 

Tschechischer A4-XY-Plotter 
für den CPC 

Es ist früher Morgen, und man ist sich noch gar nicht so sicher, daß man wirklich 
arbeiten will. In diesem Stimmungstiefereilt uns die Nachricht, daß ein Paket 
angekommen ist. Als Absender finden wir eine Prager Adresse. Wir öffnen das 
Paket, und zum Vorschein kommt, wir trauen unseren Augen kaum, ein Plotter. 


Plotter, gehören bei den CPC-Nutzern 
zu den seltener genutzten Ausgabeme¬ 
dien. Auch die gängigen Programme 
unterstützen diese Geräte selten. Ob¬ 
wohl die Ausgabe von Texten auf ei¬ 
nem Plotter möglich ist, kann er in die¬ 
ser Beziehung kaum mit einem Drucker 
mithalten. Die Qualität von Strichgrafi¬ 
ken ist aber auf diesem Ausgabegerät 
unübertroffen oder kann nur mit einem 
ungleich höheren finanziellen Auf¬ 
wand für einen Drukker erreicht wer¬ 
den. Das hier vorgestellle Gerät, den 
Plotter XY 4150, kann man nebst zu¬ 
gehöriger CPC-Soft wäre bereits für un¬ 
ter 200 DM bekommen. Hergestellt 
wird er von der Laboratorm pristroje 
Praha GmbH in Prag. Konzipiert ist 
dieser Plotter eigentlich für die Rech¬ 
nertypen Atari 130/800, C 64/128 und 
ZX Spectrum, für die es ein spezielles 
Interface zur Ansteuerung des Gerätes 
gibt. Die Firma Unisoft in Prag nimmt 
an den Plottern eine geringfügige tech¬ 
nische Änderung vor, wodurch der XY 
4150 dann ohne ein spezielles Interface 


direkt am Centronics-Ausgang des 
CPC betrieben werden kann. Von die¬ 
ser Firma stammt auch die mitgeliefer¬ 
te Software. Sie besteht aus RSX-Er- 
weiterungen, die gleichnamig mit den 
BASIC-Grafikbefehlen des CPC sind. 
Zusätzlich gibt cs noch einige RSX- 
Erweiterungen zur Ausgabe und Be¬ 


einflussung (Winkel und Zeichenab¬ 
stand) von Schrift und zur Erstellung 
von Grafikzeichen zur Ausgabe auf den 
Plotter. Im Handbuch sind alle zusätzli¬ 
chen Befehle ausführlich erklärt. Hier 
erfährt man auch einiges über die tech¬ 
nischen Daten und die Funktion des 
Gerätes. Zum Lieferumfang gehören 
vier Stifte mit den Farben Blau. Rot, 
Schwarz und Grün. Die jeweils ge¬ 
wünschte Zeichenfarbe wird per Hand 
eingelegt. 

Steuerung per RSX 

Der Plotter enthält keinerlei intelligente 
Elektronik. Alle Steueraufgaben muß 
der CPC übernehmen. Die Umwand¬ 
lung der Grafikbefehle in die Steuerim¬ 
pulse übernehmen die RSX-Routinen. 
Die mitgelieferte Gebrauchsanwei¬ 
sung beschreibt zwar eingehend die 
RSX-Erweiterung und schneidet das 
Thema Hardware an. aber beim erstma¬ 
ligen Aulbau und bei der Einjustierung 
fühlt man sich im Stich gelassen. So be¬ 
darf cs einiger Fantasie, um den Stift 
ordnungsgemäß einzubauen. Auch die 
Justierung der Stifthöhe und des 
Stiftandrucks erfordert etwas Geduld. 
Bei der Justierung geht man am besten 
folgendermaßen vor: 

1. Stift (Anzeige PEN) ausschalten 

2. Stift so weil heraus- oder hereindre¬ 
hen,bis er deutlich vom Papierabhebt 

3. Regler PEN FORCE an den linken 
Anschlag drehen (=Stiftandruck auf 
Minimum) 

4. Demo-Programm starten 

5. Regler PEN FORCE so weil nach 
rechts drehen, bis die Zeichnung in gu¬ 
ter Qualität dargestelll wird 

Haben Sie alles richtig aufgebaut und 
eingestellt, besitzen Sie mit dem Plotter 
XY 4150 ein vorzügliches Ausgabcgc- 
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Technische Daten: 

verwendetes Papierformat. 

.DIN A4,279x210 mm 

Schreib fläche. 


Größe eines Schrittes. 

26Ö()x 1850 programmierbare Schritte 

maximale Schreibgeschwindigkeit. 

Zeichen. 

. 1000 mm/s 

Genauigkeit. 


Schreibfeder. 

.Schreibfeder KIN 0581 0582 


(blau, rot, schwarz, grün) 

Röhrchenfeder0,35 bis 1 mm 

Schreibmedium. 


Versorgungsspannung. 

.220 V 



Gewicht. 

.2.8kg 

Preis. 

.etwa 200 DM 

z ur V erfügun g gesteh t durch. 



.Vaveriova54 

CS-150 00 Praha 5 


rät für grafische Darstellungen. Für den 
B ASIC-Programmierer bieten sich hier 
Darstellungen mathematischer Funk¬ 
tionen. beispielsweise das Apfelmänn¬ 
chen, an. Eine mit dem Plotter erstellte 
Grafik sehen Sie in der Abbildung. Die 
Qualität der Grafikausgaben steht der 
auf guten Druckern in nichts nach. Ha¬ 
ben Sie etwas mehr Zeit, können Sie so¬ 
gar Listings auf dem Plotter ausgeben 
lassen. Hierfür steht eine RSX-Routine 
zur Verfügung, die alle Bildschirm¬ 
ausgaben auf den Plotter umleitet. 
Beschäftigt man sich eine Weile mit 
dem Plotter, so vennißt man sehr schnell 
ein passendes Grafikprogramm. Denn 
ein Bild nur mittels BASIC-Befehlen 
darstellen zu lassen, ist sehr umständ¬ 
lich. Deshalb haben wir für Sie das Pro¬ 
gramm PLGRAF.BAS entwickelt. Es 
soll den Grundstock für ein Vektorgra¬ 
fikprogramm darstellen. Um das Li- 
sting möglichst klein zu halten, ist es 
zwar von der optischen Aufmachung 
nicht sehr gut ausgefallen, aber es ist 
voll funktionsfähig. 

Klein, aber fein 

Das Programm ist vollständig in BA¬ 
SIC geschrieben. Lediglich zur Ausgabe 
auf den Plotter werden die RSX-Befeh- 
le des Plotterprogramms verwendet, 
das Sie beim Kauf des Druckers erhalten. 
Falls Sie keinen Plotter besitzen, kön¬ 
nen Sie auch statt der Plotterausgaber¬ 
outine eine Hardcopyroutine einbin¬ 
den. Das Programm ist gut strukturiert, 
wodurch es Ihnen leichtgemacht wird, 
eigene Änderungen und Erweiterungen 
am Programm vorzunehmen. So kann 
man noch eine Routine zur Fehlerbe¬ 
handlung oder zur Nutzung von Schrift 
im Bild einfügen. 

Folgende Möglichkeiten bietet das 
Programm: 

-Zeichnen von Linien 
-Zeichnen von Rechtecken 
-Zeichnen von Kreisen 
-vergrößerte oder verkleinerte Ansicht 
von Bildausschnitten 


- Vergrößern oder Verkleinern von aus- 
gewählten Objekten 

- Verschieben von ausgewählten 
Objekten 

- Löschen von ausgewählten Objekten 
-Retten oder Laden von Bildern im 

PLGRAF-Format 

Die Bedienung des Programms erfolgt 
per Tastatur, Maus oder Joystick. In der 
obersten Bildschirmzeile wird das je¬ 
weils aktuelle Menü angezeigt. Der ge¬ 
wünschte Menüpunkt kann durch Be¬ 
wegung eines Balkens oder durch die 
Betätigung der in Klammern dargestcll- 
ten Hotkeys angewählt werden. Die Akti¬ 
vierung erfolgt durch Betätigen der <EN- 
TER>-Taste oder des Feuerknopfes. 
Um grafische Objekte darzustellen, 
werden jeweils zwei Punkte markiert: 

Objekt_zu setzende Punkte 

Linie Anfang, Ende 

Rechteck Diagonale 

Kreis Mittelpunkt, Radius 

Die gesetzten Punkte werden mit der 
Leertaste bestätigt. 

Um Objekte zu markieren, wird mit 
den Cursortasten <Auf> und <Ab> das 
gewünschte Objekt angewählt (es 


wird andersfarbig dargestellt). Zur 
Bestätigung der Wahl wird ebenfalls 
die Leertaste gedrückt. Anschließend 
wird ein Menü angezeigt, in dem die ge¬ 
wünschte Funktion gewählt werden 
kann. Beim Verschieben oder Kopieren 
wird noch die Eingabe von neuen Koor¬ 
dinaten verlangt. Diese werden eben¬ 
falls mit den Cursortasten ausgewählt 
und mit der Leertaste bestätigt. 

Zum Laden oder Speichern einer Gra¬ 
fik wählt man den Menüpunkt Datei. 
Hier kann der gewünschte Dateiname 
entweder mittels Rollbalken ausge- 
wähh oder direkt eingegeben werden. 
Als Typ ist die Erweiterung “.PLG” 
voreingestellt. 

Das Programm legt die Daten der je¬ 
weiligen Grafik im Speicher ab der 
Adresse &8000 ab. Sind keine Pro¬ 
gramme an die obere Speichergrenze 
(wozu auch der Plottertreiber gehört) 
geladen, ist im Speicher Platz für 1094 
Elemente. Mit geladenem Plottertrei¬ 
ber steht noch Speicher für zirka 455 
Elemente zur Verfügung. 

Und nun viel Spaß mit dem Plotter, falls 
Sie ihn sich kaufen, und unserem kleinen 
Programm. Vielleicht schicken Sie uns 
einmal Ihre Verbesserung und Weiter¬ 
entwicklung des Grafikprogramms? jg 


100 ' PLGRAF.BAS [492] 

110 ' CPC 664/6128(Plus) [1532] 

120 ' (c) 1992 CPC International (jg) [1620] 

130 ' [117] 

140 MODE 1:PRINT:PRINT:PRINT"Plottertreibe [7159] 
r einbinden?(j/n)":CLEAR INPUT 

150 i$=INKEY$:IF i$="" THEN 150 [1374] 

160 IF i$ = "j" THEN MEMORY &8FFF: LOAD''plott [5884] 
er.bin",&9000:CALL &9000:fpl=i:ELSE fpl=0 
170 hm=HIMEM-2:MEMORY &7FFF [2034] 

180 GOSUB 350 [982] 

190 mz=l:GOSUB 1010 [635] 

200 IF i=l THEN GOSUB 1800:GOTO 190:'Datei [2620] 
210 IF i=2 THEN GOSUB 2630:GOTO 190:'Zoom [2383] 
220 IF i=3 THEN GOSUB 250:GOTO 190:'edit [1364] 


IF i=4 THEN GOSUB 2280:GOTO 190:'Plott 

GOTO 190 

mz=2:GOSUB 1010 

IF i=4 THEN GOSUB 2730:RETURN:'Markier 


230 
240 
250 
260 
en 

270 GOSUB 480 

280 LOCATE#l,2,1:PRINT#1,x; " 
290 xa=x:ya=y:fo=f 
300 GOSUB 480 
310 fo=f 

320 GOSUB 1240:GOSUB 750 
330 CLS#1 
340 GOTO 190 
350 ' 

360 'Initialisierung 
370 ' 


;y; 


[2343] 

[407] 

[1031] 

[2671] 

[885] 

[2179] 

[1592] 

[885] 

[283] 

[1156] 

[373] 

[407] 

[117] 

[1300] 

[117] 
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380 MODE 1 

390 DEFINT x,y,v,h,o,f,i,b,1,m,n 

400 IF fpl = l THEN [INIT 

410 bmax=hm:bpos=&8002:ff=4 

420 xmax=639:ymax=380:ymin=0:xmin=0:mz=l :m 

lang=9 

430 x= 0 :y=o:yo=y:xo=x:v=l:h= 0 :o=8:f= 1 :fo=h 

440 PLOT x,y,v 

450 WINDOW#l,l,40,1,1 

460 zf=1:INK 2,6:INK 3,26,0 

470 RETURN 


'Koordinateneingabe 


[506] 

[ 2120 ] 

[1613] 

[575] 

[3519] 

[2837] 

[832] 

[1375] 

[2077] 

[555] 

[117] 

[1586] 

[117] 

[3820] 

[1357] 

[1476] 

[1311] 

[1651] 

[1470] 

[1225] 

[1267] 

[1470] 

[2008] 

[3175] 

[2004] 

[1695] 

[ 1022 ] 

[1789] 

[1004] 

[1659] 

[1393] 

[1708] 

[5566] 


480 
490 
500 

510 WHILE NOT (INKEY(47) AND INKEY(76)):WE 
ND 

520 WHILE INKEY(47) AND INKEY(76) 

530 IF INKEY(0)=0 AND y<ymax THEN y=y+l 
540 IF INKEY(72)=0 AND y<ymax THEN y=y+l 
550 IF INKEY(0)=32 AND y<ymax THEN y=y+o 
560 IF INKEY(72)=32 AND y<ymax THEN y=y+o 
570 IF INKEY(2) =0 AND y>pxn THEN y=y-l 
580 IF INKEY(73)=0 AND y>ymin THEN y=y-l 
590 IF INKEY(2)=32 AND y>ymin THEN y=y-o 
600 IF INKEY(73)=32 AND y>ymin THEN y=y-o 
610 IF INKEY(8)=0 AND x>xmin THEN X=X-1 
620 IF INKEY(74)=0 AND x>xmin THEN X=X-1 
S30 IF INKEY(8)=32 AND x>xmin THEN x=x-o 
640 IF INKEY(74)=32 AND X>xmin THEN x=x-o 
650 IF INKEY(1)=0 AND x<xmax THEN x=x+l 
660 IF INKEY(75)=0 AND x<xmax THEN x=x+l 
670 IF INKEY(1)=32 AND x<xmax THEN X=x+o 
680 IF INKEY(75)=32 AND x<xmax THEN x=x+o 
690 LOCATE#l,30,1:PRINT#1,x;" ";y; 

700 PLOT xo*zf,yo*zf,fo:fo=TEST(x*zf,y*zf) 

:IF fo=h THEN PLOT x*zf,y*zf,v:ELSE PLOT x 
*zf,y*zf,h 
710 xo=x:yo=y 
720 WEND 
730 CLEAR INPUT 
740 RETURN 
750 ' 

760 '1 Teil Zeichnen: PE-xa,ya,x,y,i$ 

770 ' 

780 ON i GOTO 810,840,860 
790 PLOT xa*zf,ya*zf,h:PLOT x*zf,y*zf,h:fo 
—h 

800 RETURN 

810 PLOT xa*zf,ya*zf,f:DRAW x*zf,y*zf,f 
820 RETURN 
830 ' 

840 PLOT xa*zf,ya*zf,f:DRAW x*zf,ya*zf,f:D 
RAW x*zf,y*zf,f:DRAW xa*zf,y*zf,f:DRAW xa* 
zf,ya*zf,f 

850 RETURN [555] 

860 ' [117] 

870 'Kreis [373] 

880 xaz=xa*zf:xd=(x-xa)*zf [1586] 

890 yaz=ya*zf:yd=(y-ya)*zf [2367] 

900 xr=SQR(xd*xd+yd*yd) [1570] 

910 rq=xr*xr:xx=0:xd=l [640] 

920 WHILE xx<xd [1170] 

930 xd=SQR(rq-xx*xx):xx=xx+2 [2788] 

940 PLOT xaz+xd,yaz+xx,f:PLOT xaz-xd,yaz+x [2913] 
x,f 

950 PLOT xaz+xd,yaz-xx,f:PLOT xaz-xd,yaz-x [2927] 
x,f 

960 PLOT xaz+xx,yaz+xd,f:PLOT xaz-xx,yaz+x [3962] 
d, f 

970 PLOT xaz+xx,yaz-xd,f:PLOT xaz-xx,yaz-x [3406] 
d,f 

980 WEND [390] 

990 PLOT xa,ya,h [827] 

1000 RETURN [555] 

1010 ' [117] 

1020 'Menueabfrage [2037] 

1030 ' [117] 

1040 IF mz=l THEN RESTORE 2250 [1249] 

1050 IF mz=3 THEN RESTORE 2270 [1002] 

1060 a$="":READ mxc [1381] 

1070 FOR XC=1 TO mxc:READ n$(xc):NEXT [1469] 

1080 FOR XC=1 TO mxc:READ nn$(xc):NEXT [1293] 

1090 FOR xc=l TO mxc:READ n(xc):NEXT [1852] 

1100 CLS#1 [373] 

1110 LOCATE# 1,1,1: FOR xc=l TO mxc:PRINT#1, [4414] 
n$(xc);:NEXT 

1120 flag= 0 :xc=l:yc=l [888] 

1130 GOSUB 2140 [863] 

1140 CLEAR INPUT [1841 

1150 WHILE flag=0 [837] 

1160 i$=INKEY$ [1004] 

1170 FOR xcc=l TO mxc [657] 


[396] 

[390] 

[184] 

[555] 

[117] 

[2137] 

[117] 

[1158] 

[2915] 

[555] 

[1982] 

[555] 

[117] 

[5447] 


1180 IF i$=nn$(xcc) THEN i=n(xcc):flag=l 

1190 NEXT 

1200 GOSUB 2030 

1210 WEND 

1220 CLS#1 

1230 RETURN 

1240 ' 

1250 'Bildspeicherung 
1260 ' 

1270 POKE bpos,i:bpos=bpos+1:GOSUB 1350 

1280 POKE bpos,(xa MOD 255):POKE bpos+l,(I 

NT(xa/255)):bpos=bpos+2:GOSUB 1350 

1290 POKE bpos,(ya MOD 255):POKE bpos+l,(I 

NT(ya/255)):bpos=bpos+2:GOSUB 1350 

1300 POKE bpos,(X MOD 255):POKE bpos+l,(IN 

T(x/255)):bpos=bpos+2:GOSUB 1350 

1310 POKE bpos,(y MOD 255):POKE bpos+l,(IN 

T(y/255)):bpos=bpos+2:GOSUB 1350 

1320 POKE &8000,((bpos-&8000) MOD 255) 

1330 POKE &8Ö01,(INT((bpos-&8000)/255)) 
1340 RETURN 
1350 ' 

1360 'Speicherkontrolle 
1370 ' 

1380 IF bpos>bmax THEN flag=l:LOCATE 25,0: 
PRINT CHR$(7);"Speicher voll!":ELSE flag=0 
1390 RETURN 
1400 ' 

1410 'Neuer Bildaufbau 
1420 ' 

1430 CLS 

1440 ORIGIN xori,yori 

1450 bcount=&8002 

1460 WHILE bcount<bpos 

1470 i=PEEK(bcount):bcount=bcount+l 

1480 xa=PEEK(bcount)+PEEK(bcount+1)*255 : bc 

ount=bcount +2 

149 0 ya=PEEK(bcount) + PEEK(bcount+1)*255:bc 
ount=bcount +2 

1500 x=PEEK(bcount)+PEEK(bcount+l)*255:bco 
unt=bcount +2 

1510 y=PEEK(bcount)+PEEK(bcount+1)*255 :bco 

unt=bcount +2 

1520 GOSUB 750 

1530 WEND 

1540 x=xori/zf* -1:y=yori/zf* -1 
1550 RETURN 
1560 ' 

1570 'Abfrage des Dateinamens 
1580 ' 

1590 PRINT"D(iJrekteingabe"; 

1600 y=VPOS(#0) 

1610 LOCATE l,y+2 

1620 a$ = "*.plg":I DIR,@a$:a$ = "" 

1630 yy=VPOS(#0) 

1640 x=l:y=y+5 
1650 LOCATE x,y 

1660 FOR c=l TO 12:a$=a$+COPYCHR$(#0):LOCA 
TE x+c,y:NEXT 

1670 CALL &BB9C:LOCATE x,y:PRINT a$;:CALL 
&BB9C:LOCATE x,y 

1680 IF INKEY(0)=0 AND y>l THEN y=y-l:GOTO 
1750 

1690 IF INKEY(2)=0 AND y<24 THEN y=y+l:GOT 
O 1750 

1700 IF INKEY(1)=0 AND X<60 THEN x=x+15:GO 
TO 1750 

1710 IF INKEY(8)=0 AND X>15 THEN X=X-15:GO 
TO 1750 

1720 IF INKEY(18)=0 THEN 1760 
1730 IF INKEY(35)=0 THEN 1770 
1740 GOTO 1680 

1750 PRINT a$;:a$="":GOTO 1650 
1760 RETURN 

1770 CLEAR INPUT:LOCATE 1,yy:INPUT"Dateina 
me:",a$ 

1780 IF INSTR(1,RIGHTS(a$,4),".")=0 THEN a 
$=a$+".plg" 

1790 RETURN 
1800 ' 

1810 'Datei Ein- Ausgabe 
1820 ' 

1830 CLS 

1840 PRINT"(L)aden (S)peichern":PRINT 
1850 CLEAR INPUT 

1860 i$=INKEY$:IF i$="» THEN 1860 
1870 IF i$="l" THEN 1900 
1880 IF i$="s" THEN 1970 
1890 CLS:RETURN 
1900 GOSUB 1560 
1910 CLS 

1920 IF a$="" THEN RETURN 


[2647] 

[350] 

[877] 

[390] 

[373] 

[555] 

[117] 

[2623] 

[117] 

[2891] 

[4056] 

[3214] 

[3203] 

[3719] 

[1377] 

[2250] 

[555] 

[117] 

[409] 

[117] 

[3676] 

[555] 

[117] 

[570] 

[117] 

[91] 

[900] 

[236] 

[1526] 

[2830] 

[3460] 

[4746] 

[2958] 

[4652] 

[935] 

[390] 

[1726] 

[555] 

[117] 

[914] 

[117] 

[1934] 

[710] 

[1060] 

[3023] 

[1459] 

[1254] 

[672] 

[3536] 

[5597] 

[1783] 

[536] 

[2498] 

[3158] 

[335] 

[889] 

[395] 

[756] 

[555] 

[2266] 

[2878] 

[555] 

[117] 

[1108] 

[117] 

[91] 

[2925] 

[184] 

[1492] 

[951] 

[574] 

[832] 

[899] 

[91] 

[1147] 
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1930 LOAD a$,&8000 [650] 

1940 bpos=PEEK(&8000)+PEEK(&8001)*255 [1530] 

1950 bpos=bpos+&8000 [671] 

1960 GOTO 1400 [387] 

1970 ' [117] 

1980 GOSUB 1560 [899] 

1990 CLS [91] 

2000 IF a$="" THEN RETURN [1147] 

2010 SAVE a$,b,&8000,bpos-&8000 [1723] 

2020 GOTO 1400 [387] 

2030 ' [117] 

2040 'Menuepunktewahl [2445] 

2050 ' [117] 

2060 IF INKEY(8) =0 AND xomlang THEN XC=XC [4 264] 

-mlang:GOTO 2130 

2070 IF INKEY (74) = 0 AND xomlang THEN xc=x [2644] 
c-mlang:G0T0 2130 

2080 IF INKEY(1)=0 AND xc<(mxc*mlang-mlang [2584] 
) THEN xc=xc+mlang:G0T0 2130 

2090 IF INKEY(75)=0 AND xc<(mxc*mlang-mlan [3383] 
g) THEN xc=xc+mlang:GOTO 2130 

2100 IF INKEY(18)=0 THEN GOTO 2180 [728] 

2110 IF INKEY(76)=0 THEN GOTO 2180 [904] 

2120 RETURN [555] 

2130 PRINT#1,a$; [334] 

2140 L0CATE#1,xc,yc [415] 

2150 a$="":FOR oc=l TO mlang:a$=a$+COPYCHR [3343] 

$(#1):LOCATE#l,xc+oc,yc:NEXT 

2160 LOCATE#l,xc,yc:PEN#1,0:PAPER#1,1:PRIN [5102] 
T#1,a$;:PEN#1,1:PAPER#1,0:LOCATE#l,xc,yc 
2170 RETURN [555] 

2180 FOR xcc=l TO mxc [657] 

2190 IF a$=n$(xcc) THEN i=n(xcc):flag=l 2256] 

2200 NEXT [350] 

2210 RETURN [555] 

2220 ' [117] 

2230 'Menue-Datas [1130] 

2240 ' [117] 

2250 DATA 4,"(D)atei ","(Z)oom ","(E)di [4703] 

t ","(P)lott ",d,z,e,p,l,2,3,4 
2260 DATA 4,"(L)inie ","(R)chtck ","(K)re [3131] 
is ","(M)ark ",l,r,k,m,l,2,3,4 
2270 DATA 4,"(S)kal ","(L)oesch ","(V)er [5475] 
sch ","(K)opie ",s,l,v,k,l,2,3,4 
2280 ' 

2290 'Plotten 
2300 ' 

2310 CLS#1:PRINT#1,"Ausgabe auf den Plotte 
r?(j/n)";:CLEAR INPUT 
2320 i$=INKEY$:IF i$="" THEN 2320 
2330 IF i$o"j" THEN RETURN 
2340 GOSUB 1410 
2350 |INIT 
2360 bcount=&8002 
2370 WHILE bcount<bpos 
2380 i=PEEK(bcount):bcount=bcount+l 

2 2 ?l9 0 :glo = in P ?I£Ä?| ,+t,EEK(bCOUnttl > * 255 >* 

2400 ya=(ymax-(PEEK(bcount)+PEEK(bcount+1) 

*255))*2.89:bcount=bcount+2 
2410 x=(PEEK(bcount)+PEEK(bcount+l)*255)*2 
.89:bcount=bcount +2 

2420 y=(ymax-(PEEK(bcount)+PEEK(bcount+1)* 

255))* 2.89:bcount=bcount+2 
2430 GOSUB 2470 
2440 WEND 

^MOVE,0,0 


lETURN 


2450 
2460 
2470 ' 

2480 'Ausgabe auf Plotter 
2490 ' 

2500 ON i GOTO 2520,2550,2570 
2510 RETURN 

2520 IPLOT,xa,ya:IDRAW,x,y 
2530 RETURN 
2540 ' 

2550 |PLOT,xa,ya:|DRAW,x,ya:|DRAW,x,y:IDRA 
W,xa,y:|DRAW,xa,ya 
2560 RETURN 
2570 ' 

2580 'Kreis 

2590 xd=x-xa:yd=y-ya:xr=SQR(xd*xd+yd*yd) 
2600 |MOVE,xa,ya 
CIRCLE,xr 
ETURN 


2610 
2620 
2630 ' 

2640 'Zoom 
2650 ' 

2660 CLS#1:CLEAR INPUT:INPUT#1,"Faktor(Bil 
dschirm):" ;zfhi.lf 
2670 IF zfhilf<=l THEN xori=0:yori=0:GOTO [3081] 
2700 


[117] 

[1048] 

[117] 

[4764] 

[1496] 

[889] 

[905] 

[527] 

[236] 

[1526] 

[2830] 

[5158] 

[3916] 

[4163] 

[6487] 

[821] 

[390] 

[ 1101 ] 

[555] 

[117] 

[2030] 

[117] 

[901] 

[555] 

[1620] 

[555] 

[117] 

[4484] 

[555] 

[117] 

[373] 

[3110] 

[1709] 

[1273] 

[555] 

[117] 

[837] 

[117] 

[2892] 


2680 CLS#1:PRINT"Neuer Nullpunkt:G0SUB 
480 

2690 xori=x* -l*zfhilf:yori=y* -i*zfhilf 

2700 zf=zfhilf:GOSUB 1410 

2710 CLS#1 

2720 RETURN 

2730 ' 

2740 'l Teil markieren 
2750 ' 

2760 bcount=&8002 
2770 lflag=0 

2780 WHILE bcount<bpos AND lflag=0 
2790 obcount=bcount 

2800 i=PEEK(bcount):ii=i:bcount=bcount+l 
2810 xa=PEEK(bcount)+PEEK{bcount+1)*255:bc 
ount=bcount +2 

2820 ya=PEEK(bcount)+PEEK(bcount+1)*255 :bc 
ount=bcount +2 

2830 x=PEEK(bcount)+PEEK(bcount+1)*255:bco 
unt=bcount +2 

2840 y=PEEK(bcount)+PEEK(bcount+1)*255:bco 

unt=bcount +2 

2850 f=2:GOSUB 750 

2860 PLOT xa,ya,3 

2870 CLEAR INPUT:WHILE INKEY(47) AND INKEY 
(2) AND INKEY(0):WEND 
2880 f=l 

2890 IF INKEY(0)=0 THEN IF bcount<&8014 TH 
EN bcount=obcount:ELSE bcount=bcount-i8 
2900 IF INKEY(47)=0 THEN lflag=l: ELSE lfl 
ag=0:GOSUB 750 
2910 WEND 

2920 IF lflag=0 THEN RETURN 
2930 mz=3:GOSUB 1010 

2940 IF i=l THEN GOSUB 2990:GOSUB 1410:RET 
URN 

2950 IF i=2 THEN GOSUB 3120:GOSUB 1410:RET 
URN 

2960 IF i=3 THEN GOSUB 3230:GOSUB 1410:RET 
URN 

2970 IF i=4 THEN GOSUB 3300:GOSUB 1410:RET 
URN 

2980 RETURN 


2990 ' 

3000 'Skalieren 
3010 ' 

3020 CLS#1:CLEAR INPUT:INPUTfl,"Skalierfak 
tor:";sf 

3030 hilf=x:x=(xa+x+(x-xa)*sf)/2:xa=(xa+hi 
lf-(hilf-xa)*sf )/2 

3040 hilf=y:y=(ya+y+(y-ya)*sf)/2:ya=(ya+hi 

lf-(hilf-ya)*sf )/2 

3050 bcount=obcount 

3060 POKE bcount,ii:bcount=bcount+l 

3070 POKE bcount,(xa MOD 255):POKE bcount+ 

1,(INT(xa/255)):bcount=bcount+2 

3080 POKE bcount,(ya MOD 255):POKE bcount+ 

1,(INT(ya/255)):bcount=bcount+2 

3090 POKE bcount,(x MOD 255):POKE bcount+1 

,(INT(x/255)):bcount=bcount+2 

3100 POKE bcount,(y MOD 255):POKE bcount+1 

,(INT(y/255)):bcount=bcount+2 

3110 RETURN 

3120 ' 

3130 'markiertes Teil loeschen 
3140 ' 

3150 bpos=bpos-9 

3160 WHILE obcountcbpos 

3170 hilf=PEEK(bcount):POKE obcount,hilf 

3180 bcount=bcount+l:obcount=obcount+l 

3190 WEND 

3200 POKE &8000,((bpos-&8000) MOD 255) 

3210 POKE &8001,(INT((bpos-&8000)/255)) 
3220 RETURN 
3230 ' 

3240 'markiertes Objekt verschieben 
3250 ' 

3260 CLS#1:PRINT#l,"Neue Position:"; 

3270 xhilf=x-xa:yhilf=y-ya:GOSUB 480 
3280 xa=x:x=xa+xhilf:ya=y:y=ya+yhilf 
3290 GOTO 3050 
3300 ' 

3310 'l Objekt kopieren 
3320 ' 

3330 CLS#l:PRINT#l,"Position:"; 

3340 xhilf=x-xa:yhilf=y-ya:x=x+4:y=y+4 :GOS 
UB 480 

3350 xa=x:x=xa+xhilf:ya=y:y=ya+yhi1f 
3360 i=ii:GOSUB 1240 
3370 RETURN 


[2814] 

[2523] 

[1365] 

[373] 

[555] 

[117] 

[1115] 

[117] 

[236] 

[ 220 ] 

[2485] 

[547] 

[3154] 

[3460] 

[4746] 

[2958] 

[4652] 

[1734] 

[568] 

[4948] 

[395] 

[5224] 

[1171] 

[390] 

[616] 

[837] 

[2760] 

[3356] 

[1975] 

[3219] 

[555] 

[117] 

[418] 

[117] 

[2801] 

[2676] 

[2483] 

[585] 

[1980] 

[4233] 

[4483] 

[4172] 

[4494] 

[555] 

[117] 

[1775] 

[117] 

[651] 

[1387] 

[3618] 

[2233] 

[390] 

[1377] 

[2250] 

[555] 

[117] 

[1853] 

[117] 

[1248] 

[2035] 

[1335] 

[447] 

[117] 

[2671] 

[117] 

[1989] 

[2743] 

[1335] 

[693] 

[555] 
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Ein Plus für alle Fälle 


wir nun, daß keines der Plus-Geheim¬ 
nisse mehr geheim bleiben muß, le¬ 
diglich eine Sache fehlte noch, ein 
Upgrade-Kit für Besitzer der alten 
CPC-Modelle. Doch auch dieses soll 
nicht lange auf sich warten lassen. 

GX4000 im Huckepack 

Wer schon einen CPC der Baureihen 
464,664 oder 6128 besitzt, wird sicher¬ 
lich vor der Anschaffung eines weite¬ 
ren CPCs zurückschrecken. Will man 
doch das damals so teuer erworbene 
Gerät nicht unbedingt weit unter Preis 
verkaufen, um dann für den neuen noch 
eine ganze Stange Geld zu investieren. 
Außerdem gibt es noch ein weiteres 
Problem. Sind doch die Plus-Modelle 
nicht hundertprozentig zu den alten 
CPCs kompatibel. Das könnte also im 
schlimmsten Fall bedeuten, daß die 
vorhandene und eventuell auch häufi¬ 
ger eingesetzte Software nicht mehr auf 
den Neuen arbeitet. Ein großes Risiko 
also. 


CPC 2128: Plus-Power auch für die 
alten CPCs 

4096 Farben, Cartrigeschacht, DM A-Sound, Hardwaresprites und noch so 
manches mehr haben die neuen CPCs an Bord. Dies gib! sicher Grund für 
Eifersüchteleien von seiten der Besitzer eines CPC der normalen Bauart. 
Trotzdem kein Grund zur Panik. Aus dem guten alten läßt sich in Windeseile 
ein neuer hauen. 


Genau zur Jahreswende 1990/91 war es 
klar, die Firma Amstrad präsentierte ih¬ 
re neuen CPCs. Wie auch bei den neuen 
PCWs hält sich die Amstrad Deutsch¬ 
land GmbH in dieser Richtung zurück 
und ist aus bestimmten Gründen nicht 
bereit, die neuen CPCs auf den deut¬ 
schen Markt zu bringen. 

Ein Gerücht kursiert 

Ganz anders sieht es da schon bei unse¬ 
ren Nachbarn in England und Frank¬ 
reich aus. Wilde Gerüchte kursieren, 
und so wird auch die CPC International 
immer heißer auf die neuen Geräte. 

Kein Plus in Sicht 

Doch, man soll es nicht glauben, nir¬ 
gends ist ein solches Gerät zu bekom¬ 
men. Umfangreiche Verhandlungen 
mit den englischen und französischen 
Amstrad-Niederlassungen machen es 
dann doch noch möglich, daß wir je¬ 


weils einen 464 als auch einen 6128 
plus zu Gesicht bekommen. Und siehe 
da, nach einer abenteuerlichen Reise 
„Eschwege London/Brentwood - Pa- 
ris/Sevres - Eschwege" zierte dann 
doch endlich ein CPC 6128 Plus das Ti¬ 
telbild der CPC 12/1 *90/91. 

Inzwischen sind schon fast zwei Jahre 
vergangen. Fast vergessen der Streß, 
und vor allem die Neugierde, was die 
neuen CPCs nun wirklich auf dem Ka¬ 
sten haben. Wahren Tüftlern verdanken 



Das Herzstück des 2128: Die GX4000 


Auf verschlungenen 
Pfaden 

Die NoName Service Gbr, Duisburg 
hat jetzt einen Umbau vollzogen, der 
selbst die Redaktion zum Staunen 
brachte. So wird angeboten, nach Ein¬ 
sendung der alten Computertastatur 
und des Floppy Controllers beim 464 
das Gerät so aufzurüsten, daß es sowohl 
im normalen als auch im Plus-Modus 
funktioniert. Per Schalter kann dann 
nach dem rund 500 DM teuren Umbau 
zwischen beiden Modi umgeschaltel 
werden. 

Erstmalig bestaunen konnten diesen 
Umbau die Besucher der CPC-Party in 
Reims, Frankreich. Mehr hierüber je¬ 
doch auf Seite 7. 

Das Herz des uns vorliegenden Beta- 
Modells besteht aus einer GX4000- 
Konsole, die im Grunde genommen 
nichts anderes als ein abgespeckter CPC 
464-Plus mit fehlenden Kabelverbin¬ 
dern für Tastatur, Floppy oder andere 
Hardware darstellt. Lediglich die P-Ta- 
ste (Für Pause) wurde ihr noch gelassen. 
Weiterhin wurde die GX4000, die stan¬ 
dardmäßig nur über 64 kByte Speicher 
verfügt, mit einer weiteren 64-kByte- 
Bank ausgerüstet. 

6128-Plus kompatibel 

Sämtliche Ausgänge wie Drucker- und 
Expansionsport sind direkt an der 
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Durch futuristisches Kurvendesign schlugen die neuen CPCs voll aus 
der An. Trotzdem wurde auf Altbewährtes Wert gelegt: Floppy oder 
Tape sind im Tastaturgehäuse untergebracht. 



tut gegen der Hardware in den alten CPCs wirkt die Floppy im Innen- 
raum eines CPC 612H (plus) im Vergleich zur Platine regelrecht mon¬ 
strös 


GX4000 angebracht. Weiterer Vorteil 
des GX'4000-Umbaus ist der entgegen 
den CPC-Plus-Model len vorhandene 
Stecker zum Anschluß an ein handels¬ 
übliches Fernsehgerät mit Anten¬ 
neneingang. Das Videointerface aus 
der CPC 8/9’92 muß also nicht erst 
nachgebaut werden. 

Sozusagen als kleiner Bonus wurde der 
GX4000-Konsole noch ein Pause¬ 
schalter sowie ein Resettaster einge¬ 
baut. 

Ein Stück mehr Kompa¬ 
tibilität 

Lediglich beim Sound müssen Abstri¬ 
che gemacht werden. Verfügen die 
Plus-Monitore über eingebaute Laut¬ 
sprecher, wird bei dem CPC 2128 nur 
ein 3.5” Klinkenstecker angeboten, 
über den der Sound zum Beispiel an die 


Stereoanlage oder direkt an Aklivbo- 
xen gegeben werden kann. 

Tips vom Tüftler 

Alles in allem eine Menge Umbauar¬ 
beit, die Ihre 500,- DM sicherlich wert 
ist. Bei ausgiebigen Tests der Hardware 
mit Standardsoftware konnten kei¬ 
nerlei Fehler festgestellt werden. 
Verblüffend: Dadurch, daß der alte 
Diskettencontroller an dem Umbau 
weiterverwendet wird, läuft Software 
w ie Discology oder Mastercopy, die 
auf den normalen Plus-Modellen nicht 
funktioniert, einwandfrei und das im 
Plus-Modus. 

Auch dieser Umbau zeigt uns wieder, 
daß es gerade in Deutschland noch en¬ 
gagierte CPC-Tüftler gibt. Wir hoffen, 
daß dieser Umbau auch andere Leser 
motivierteein wenig zu basteln. 


Aber kurz noch ein kleines Schmankerl 
vorweg: ln der nächsten CPC verrät der 
Bastler einige Tricks seiner Umbauak¬ 
tion. Praktisch nebenbei hat er so her¬ 
ausgefunden, wie sich ein CPC 464 
Plus mit 64 kßyte in einen 464 Plus mit 
satten 128 kByte wandeln läßt und das 
wollen wir Ihnen natürlich nicht vor¬ 
enthalten. 

rs 


Die Vorab-Version dieses CPC- 
Umbaus wurde uns freundlicher¬ 
weise von der Firma 
NoName FDV ServiceGbr, 

Inden Peschen 51, 

4100 Duisburg 14, 
zur Verfügunggestellt. 



Der Floppycontroller und das Zusatzrom für den normalen CPC-Betrieb 
sind direkt an der GX4000 angebracht 



Mike Behrendt. Gründer der Noname Service Gbr sowie der Bastler 
Wolfgang Noisternig bescherten uns den CPC-Umbau 
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Wetterstation PCW 

Temperaturdaten mit dem PCW 
auswerten 

Wer meint, daß Windmessung alles ist, was der Joyce kann, der sollte sich ei¬ 
nes Besseren belehren lassen. Unter Verwendung von nur zwei Ports kann der 
Joyce nun auch Temperaturdaten erfassen und auswerten. 

Bei minimalem Hard- und Softwareaufwand eine gelungene Lösung, die sich 
von jedem in die Praxis umsetzen läßt. 



Die Dateneingabe kann über dieses Meßmodul 
erfolgen 


Nachdem das Windmodul in der CPC 
8/9’92 veröffentlicht wurde, folgt nun 
noch ein Thermometer. Auch bei die¬ 
sem Aufbau wurde wieder auf eine 
möglichst einfache und vor allem 
preisgünstige Lösung Wert gelegt. Es 
werden weder aufwendige Program¬ 
me noch aufwendige Hardware 
benötigt. Ein recht preisgünstiges 
Modul (zum Beispiel über die Firma 
Conrad zu beziehen/siehe Bild) 
macht’s möglich: Temperaturdaten 
mit dem PCW erfassen, speichern und 
auswerten. 

Hardware für unter 
40,- DM 

Wie auch bei der Windmessungsanlage 
wird davon ausgegangen, daß eine pro¬ 
grammierbare Schnittstelle nach Bern¬ 
hard Graßhoff (Autor JOYCE - Mehr 
als ein Textsystem) und das oben ange¬ 
gebene Temperaturmeßmodul vorhan¬ 
den sind. Dieses Modul besitzt einen 
seriellen Ausgang, der bitweise ein- 
und ausgelesen wird. Da dieser Daten¬ 
ausgang jedoch keinen TTL-Pegel lie¬ 
fert, ist noch ein kleiner Pegelwandler 


nach Skizze 2 nötig. Er läßt sich jedoch 
leicht auf einer Lochrasterplatine mit 
Bauteilen aus der Bastelkisle aufbauen. 
Skizze 2 liefert die benötigten Informa¬ 
tionen dazu. 

Alles in allem wird der Geldbeutel mit 
weniger als 40 — DM belastet, voraus¬ 
gesetzt, die Schnittstelle ist bereits 
vorhanden. Wer sich die Schnittstelle 
sparen will, kann natürlich auch Daten 
über den Druckerport einiesen. Hier 
bietet sich die Adresse FDh (Busy und 
PaperOut on). Dann ist allerdings der 
Drucker nicht gleichzeitig nutzbar. 

Software: Ein paar Pro¬ 
grammzeilen genügen 

Die zu verarbeitenden Daten stehen an 
Pin 9 und der Takt an Pin 10 des Meß¬ 
moduls im Abstand von einer bezie¬ 
hungsweise zehn Sekunden bereit (Ski¬ 
zze 1). Die Datenübertragung selbst 
dauert etwa 18 ms, so daß Joyce sich 
ganz schön sputen muß, um alle Daten 
zu erwischen. Aus diesem Grund wer¬ 
den die Daten erst ausgelesen, in einem 
Array zwischengespeichert und dann in 
der Pause ausgewertet. 


Die Prozedur Messen erledigt diese 
Aufgabe. Sie fragt den Port A5h ständig 
ab und wartet auf den Higli Pegel an Pin 
10. Dann werden die folgenden Daten 
in das Array Data eingelesen. 200 Sam- 
ples reichen bei dem gemächlichen 
Tempo des Joyce vollkommen für eine 
Meßperiode aus. Während des 
Meßvorgangs müssen die Interrupts 
ausgeschaltet sein, sonst kommt es zu 
Fehlmessungen. Die Prozedur Auswer¬ 
ten wandelt die Daten in einen Tempe¬ 
raturwert um. Der Temperaturwert 
selbst ist als 13-Bit-Wort nach folgen¬ 
dem Schema verschlüsselt: 


Dl Vorzeichen 
D2 -D5 Zehner 
D6 -D9 Einer 
DI0-D13 Zehntel 


Der errechnete Wert wird der Integer¬ 
variablen temp in 1/10 Grad zugeord¬ 
net. Der Einfachheit halber wurde diese 
Variable global deklariert. 

Die Temperatur werte können nun be¬ 
liebig weiterverarbeitet werden. 



Skizze I: An Pin 9 stehen die Daten und an Pin 10 der Takt bereit. Dies 
erfolgt jede beziehungsweise alle zehn Sekunden 



Skizze 2: Diese kleine Schaltung ist leicht auf einer Lochrasterplatine 
nachzuvollziehen 
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Für die Auswertung in einer Wettersta¬ 
tion kann die Aufzeichnung über eine 
Zeitachse recht anschaulich sein. 

Mit den Prozeduren der Grafik-Tool¬ 
box aus dem Joyce Sonderheft 2, ist ei¬ 
ne einfache Grafikauswertung pro¬ 
blemlos möglich. 

Um das Programmlisting jedoch mög¬ 
lichst kurz und vor allem übersichtlich 
zu halten, wurde allerdings hier auf 
Grafik, Menüsteuerung und so weiter 
verzichtet. 

Das abgedruckte Programmlisting soll 
dem interessierten Bastler lediglich als 
Stütze für eigene Projekte dienen. 

Dieter Kinzinger/rs 


Skizze J: 
Anschluß der 
Temperatur- 
meßanlage an die PIO 


Literatur: 


JOYCE mehr als ein Textsystem 

Den J OY CF. programmieren 

DM V-VERLAG 

Franzis Verlag 


Dl D2 D3 D4 

D5 D6 

D? D8 

D9 D1Ö Dil D12 D13 


Bit 1 
Pin 9 
Bit 2 


J~UTJULrU^ Pin 10 


Program Temperaturmessung; 

(*$!-*) (*$K~*) (*$R-) (*$U-*) (*$V-*) 

(************************************************, 
(* TEMPX.PAS *) 

(* Joyce PCW 8256/8512 *) 

(* (c) 1992 Dieter Kinzinger & CPC International*) 

(* Programm zur Temperaturmessung Uber das *) 

(* Schnittstellenmodul aus dem Buch: JOYCE - *) 

(* mehr als ein Textsystem. *) 

(* Stand 27.06.92 *) 

(************************************************) 


Const inp = $A5; 


Var temp,mint,maxt. 


tempalt 

: Integer; 

temp str 

: String[20]; 

data 

: Array[l..200] Of Byte; 

d 

: Arrayj1..13] Of Byte; 

screen on 

: Boolean; 


Procedure hidecursor; 

Begin 

Write(#27,'f'); 

End; 

Procedure Showcursor; 

Begin 

Write(#27,’e'); 

End; 

Function key : Boolean; (*Prüft Tastaturstatus*) 
Const bios userf = $FC5A; (* nach CPC 2/3 92 *) 
kmget_status = $115C; 

Var A : Byte; 

Begin 

InLine ($CD/bios_userf/ 
kmget Status/ 

$32/AT; 

If A = $FF Then key := True Else key := False; 
End; 

Procedure ende; 

Begin 

ClrScr; GotoXY(35,20); 

WriteLN('Programm beendet'); 
showcursor; halt; 

End; 

Procedure Messen; 

Var n, totzeit : Integer; 

Begin 

totzeit := 30000; 
n : = 0; 

InLine(SF3); (* DI *) 

Repeat 
n := n+ 1 ; 

Until (port[inp] Or 251 = 251) Or (n>totzeit); 

For n := 1 To 200 Do 
data[n] := port(inp) or 249; 

InLine(SFB); (* EI *) 

End; 


Procedure auswertung; 

Var dy, q, z : Integer; 

Begin 

q :* 1; 

For z := 1 To 13 Do 
Begin 

While ((data[q] Or 251>>251) And (q<l99) Do 

q:=q+l; 

dy := (data[q] And 2); 

While ((data[q] Or 251)<255) And (q<l99) Do 

q:=q+1; 

0 Else d[z] := 1; 


If dy = 2 Then d[z] := 

End; 

temp := D[13] + D[12]*2 + D[ll]*4 + D[10]*8 + 


If D[1] 
End; 


( D [ 9 ] + 
t D [ 5 ] 


D[ 8 ] 
D[4] 


2 + D[7)*4 +‘D[6]*8j *10 + 
2 + D[3]*4 + D[2]*8)*100; 


1 Then temp := temp * (-1); 


Procedure mini_max; 

Begin 

If temp>maxt Then maxt := temp; 

If temp<mint Then mint := temp; 

End; 

Procedure tempout(t : Integer); 

Var s : String[4]; 

1 : Integer; 

Begin 

temp str := ' 1 ; 
str(E,s); 

1 := Length(s); 

Insert(’.',s,l); 

temp str := s+' Grad Cels.'; 

End; 

Procedure digitemp; 

Var p : Byte; 

first, 

cancel : Boolean; 

Begin 

first := True; 

ClrScr; 

hidecursor; 

Repeat 

For p := 1 To 2 Do messen; 
cancel := key; 
auswertung; 
tempout(temp); 

GotoXY(30,12); Write('Temperatur: temp str); 

If first Then Begin first:=False;mint:=temp; 

maxt:=temp; 

End Else mini max; 

tempout(mint); 

GotoXY(30,14);Write('Minimum : ',temp str); 
tempout(maxt); “ 

GotoXY(30,16);Write('Maximum : ',temp str); 
Until cancel; ~ 

end; 

Begin 

digitemp; 

ende; 

End. 
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PCW 


PCW in neuem Gewand 

PCW 9256: Klassiker in überarbeiteter 
Aufmachung 

Obwohl schon seit langem angekündigt, wird erst jetzt der neue PCW auf dem 
deutschen Markt eingeführt. Spritziges Design, 3,5-Zoll-Laufwerk und volle 
Softwarekompatibilität zu den älteren Geschwistern zeichnen dieses Gerät 
aus. 


"Wie bekomme ich nur meine Daten 
vom PCW auf meinen Laptop und w ie¬ 
der zurück?”, hörte man zeitweise je¬ 
den Dienstag zur Hotline unsere Leser 
fragen. “200 DM müßten Sie schon 
mindestens investieren”, so unsere 
Antwort. Ist es doch für den Transport 
der Daten zwischen PCW und PC erfor¬ 
derlich. entweder eine serielle Schnitt¬ 
stelle oder aber ein zweites Laufwerk 
im 3,5-Zoll-Format anzuschaffen. Den 
PCW zu Hause und einen Laptop unter¬ 
wegs einzusetzen, ist dann kein Pro¬ 
blem mehr, aber die 200 - DM bloß fiir 
den simplen Datenaustausch zwischen 
beiden Geräten stören doch ein wenig. 
Warum also nicht vorder Anschaffung 
eines PCW schon einmal über das ver¬ 
wendete Diskettenformat nachdenken? 

Amstrad auf Abwegen? 

Die Firma Amstrad ist jetzt dem Markt 
ein wenig hinterhergehopst und bietet 
auch einen PCW mit 3,5-Zoll-Lauf¬ 


werk an. Das soll aber nicht die einzige 
Änderung bleiben! 

Mil einem 720-kByte-Laufwerk als 
LW-A hat man sicher einen immensen 
Schritt nach vorne gemacht. Weil 
die CF2DD-Disketten im 3-ZoII- 
Format in letzter Zeit nur noch teuer 
oder gar nicht mehr zu bekommen wa¬ 
ren, mußte der PCW-9512-Benutzer 
auf (noch) handelsübliche CF2-Disket- 
ten umsteigen. Ein arges Risiko. Be¬ 
achte man doch die vorgesehene For- 
matierungsdichte von maximal 200 
kByte pro Diskettenscile. Disketten¬ 
fehler sind also bei Benutzung des 720 
KByte-Formates auf Dauer vorpro¬ 
grammiert. 

3,5-Zoll-Disketten sind dagegen schon 
wesentlich besser zu bekommen, sind 
sie doch im PC-Bereich zum Standard 
geworden. Hat man auf beiden Seiten- 
sowohl beim PCW als auch beim PC - 
ein 3,5-Zoll-Diskettenlaufwerk, muß 
weiterhin nur noch eine Transfersoft¬ 
ware, zum Beispiel TREAD. ange- 



Futuristisch [>reisen - 
tiert sieh der PCW 
9256. Sowohl Compu¬ 
ter und Tastatur als 
auch der Drucker wei¬ 
sen ein elegantes 
Bogendesign auf 


Der PCW9256 sowie die im Artikel 
angesprochene Hardware und Soft¬ 
ware wurde uns freundlicherweise 
von der Firma Wiedmann Unterneh¬ 
mensberatung, Korbiniansplatz 2, 
8045 Ismaning, zur Verfügung ge¬ 
stellt. 


schafft werden. Daß dies wesentlich 
preisgünstiger ist als die zwei zuvor ge¬ 
nannten Alternativen, ist klar. 

Neuer Look 

Der PCW 9256 ist jedoch nicht nur eine 
Kopie des PCW 9512 mit eingebautem 
3,5-Zoll-Laufwerk, sondern weist noch 
weitere Änderungen auf. Auffälligstes 
Merkmal ist hier schon allein das Aus¬ 
sehen. Auch wenn der PCW 9512 
schon futuristisch designed war, konnte 
nichts über sein plumpes Auftreten und 
seine großen Ausmaße hinwegtäu¬ 
schen. Das 9256er Modell hingegen 
weiß durch geringe Ausmaße zu gefal¬ 
len. So findet der schon als zierlich zu 
bezeichnende Joyce sicher auf jedem 
Schreibtisch seinen Platz. Den Drucker 
im I luckepack und die Tastatur, die sich 
bei Bedarf auch auf den “PCW-Turm" 
legen läßt, sind ebenfalls ein enormer 
Fortschritt gegenüber den älteren Mo¬ 
dellen. Einen Rückschritt hat man mit 
Sicherheit in der Speicherausstattung 
gemacht. War der 9512 schon mit 512 
kByte Arbeitsspeicher ausgestattet, 
gibt man den 9256ern nur noch 256 
kByte mit. Der Speicher läßt sich zwar 
intern mit Speicherchips oder extern 
per SCA-RAMPack aufrüsten, trotz¬ 
dem sollten mindestens 512 kByte von 
Haus aus drin sein. Muß man doch ohne 
die zusätzlichen 256 kByte auf so man¬ 
ches verzichten. Will man zum Beispiel 
LocoScript 2.32 mit Zusatzprogram¬ 
men einsetzen, ist das nicht uneinge¬ 
schränkt möglich. Noch während des 
Boolcns würde sich der PCW mit der 
Meldung “Speicher voll” verabschie¬ 
den. Ebenso das Programm MicroDe- 
sign 111, das bei 256 kByte gar nicht erst 
laufen möchte. 

LocoScript 1.5 - wozu? 

Neben Rechner, Tastatur und Drucker 
befindet sich noch Software im Liefer¬ 
umfang des PCW. So aus unerfindli¬ 
chen Gründen die LocoScript-Version 
1.5. Eine Asbach-uralt-Version also, 
und dazu noch in Englisch. Aberoptio- 
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Der Drucker wurde so 
konzipiert, daß er nicht 
nur neben, sondern di¬ 
rekt auf dem PCW-Mo- 
nitor Platz findet. Wird 
der Rechner gerade 
nicht benötigt, kann die 
Tastatur dem Beispiel 
des Druckers folgen 


nal läßt sich ja auf die deutsche Version 
2.32 Umrüsten. Ebenso findet man im 
Joyce-Paket noch eine Diskette mit 
CP/M Plus. Schaut man sich deren In¬ 
halt an, fällt auf den ersten Blick nichts 
Ungewöhnliches auf, oder doch: Die 
vom PCW bekannte Systemdatei, die 
bisher mit .EMS endete, wurde mit ei¬ 
nem anderen Endbuchstaben versehen. 
Aus .EMS wurde einfach .EMT ge¬ 
macht. Das bedeutet, daß sich die Ent¬ 
wickler des PCW sicherlich eine Men¬ 
ge Mühe gemacht und sogar die Ursy- 
stemroutinen umgestrickt haben. 

Beim weiteren Betrachten des Diskel¬ 
teninhalts lallt eine Datei mit dem Na¬ 
men RAMTEST.COM auf. Ihre Aufga¬ 
be besteht darin, den Speicher zu testen 
und - wenn vorhanden - eine ange¬ 
steckte Speichererweiterung anzumel¬ 
den. 

Nichts für Amateure 

Wird nämlich eine Speichererweite¬ 
rung angeschlossen, heißt dies nicht, 
daß dieser Zusatzspeicher gleich er¬ 
kannt wird. Haareraufend kamen auch 
wir erst später darauf, das Programm 
RAMTEST zu starten. Und siehe da, 
der Zusatzspeicher in Form der 
Pro9256-Schnittstelle wird seitdem un¬ 
ter CP/M und LocoScript richtig er¬ 
kannt. 

Selbstverständlich muß man für den 
kompakten Bau des PCW auch ein we¬ 
nig in Kauf nehmen. War es beim 9512 
schon schwer, an die Innereien zu kom¬ 
men, um gegebenenfalls ein zweites 


Laufwerk nachzurüsten, sollte beim 
9256 ganz von diesem Vorhaben abge¬ 
sehen werden. Genau wie bei den neuen 
CPCs wurde hier zwar auch an der Pla¬ 
tine und deren Größe gefeilt, der unpro¬ 
portionale Schrumpfvorgang des 
Gehäuses hingegen läßt für weitere 
Einbauten keinen Platz. Gerüchten zu¬ 
folge sollte ja innerhalb des neuen 
PCW schon ein Platz für eine Festplatte 
vorgesehen sein. Dieser läßt sich je¬ 
doch nirgends im Gehäuse lokalisieren. 

Fazit 

Lediglich ein Kabel erinnert daran, daß 
irgendwo unter dem Platinen wust noch 
Platz für ein zweites Laufwerk sein 
muß. Den Einbau und die Auswahl des 
Laufwerks sollte man jedoch aus vor¬ 
genannten Gründen dem Fachmann 
überlassen. Dies kostet zwar ein paar 


Mark, ist jedoch noch billiger als die 
Reparatur des eventuell beschädigten 
Geräts. 

Im großen und ganzen kann man diesen 
PCW-Neubau als gelungen bezeich¬ 
nen. Bringt er doch neben dem 3.5- 
Zoll-Laufwerk auch noch jede Menge 
Platzersparnis. Und Platz, der ist be¬ 
kanntlich auf jedem Schreibtisch 
knapp. Das Einsatzgebiet des PCW 
9256 liegt eindeutig wieder im Bereich 
der Datenerfassung und -auswertung. 
Für diesen Zweck reicht in vielen Fäl¬ 
len auch die englische Konfiguration, 
wie sie nach Bestellung des Grund¬ 
geräts vorliegt. Englische Tcxtverar- 
beitung sowie die 82-Tasten-QWER- 
TY-Tastatur können dann später noch 
auf deutsche Ansprüche umgerüstetet 
werden. Dies ist zwar etwas umständ¬ 
lich. anfangs jedoch aus Kostenfragen 
sicherlich eine gute Entscheidung. 

rs 


Nach Aussage der Firma Wiedmann 
werden ab sofort alle Programmpa¬ 
kete auch für den PCW 9256 auf 3.5- 
Zoll-Disketten angeboten. Für den 
Test des PCW stand uns folgende 
Konfiguration zur Verfügung: 

PCW 9256 mit einem Laufwerk. Sy¬ 
stemdrucker und deutscher Tastatur, 
zusätzlich noch die Pro9256-Schnilt- 
stcllc, die neben einem parallelen 
Port zum Anschluß eines externen 
Druckers noch 1 MByte Zusatzspei- 
chcr bereitstellt. Auf der Software¬ 
seite lagen uns LocoScript 2.32 so¬ 
wie das englische Programmpaket 
Cracker II und die neueste Version 
von MicroDesign vor. Damit sich 
problemlos Einzelblattpapier einla- 
gen läßt, stand zusätzlich noch der 
Margin Maker MM4 zur Verfügung. 


CPC International Druckertest: PCW 9256 Systerndrucker 


Normale Schrift, Hoch 0 -»t.nt und T1 . fg „ um 
A formale Schrift, und 

Normale Schrift, Hoch fl «um und T1 . f 

Normale Schrift, u nd 0 __ ^ . - 

Dies ist 9-Nadel-Briefquälitat; Umlaute: äöüÄöüß 
Dies ist 9-Nadel-Briefquälität; Umlaute: äöüÄöüß 
Dies ist 9-Badel-Briefqualitat; Umlaute: äöüÄöüß 
Dies ist 9-Jade1-Briefqualitat;_Uml aut«: _ äöüÄöüß 


Das Schriftbild des PCW-Druckers reicht für den normalen Schriftverkehr vollkommen aus 
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Spielkarten - ein uraltes \ 'en>tiii)>eit. Die nächste Ausgabe bringt Kar 
tenspiel-Spaß für Tüftler . !• retten Sie stell auf tlie ,u roß sch anspejeilte 
"Solitär" -Patiencefiir ,len ( PC 



CPC 


- Wir zeigen den PC-”Window- 
sianern”, was eine britische 8-Bit- 
Harke ist! Nachdem wir in diesem 
Heft bereits eine hervorragende 
“Mincsweeper”-Umsetzung gebracht 
haben, präsentieren wir im nächsten 
Heft die CPC-Adaption eines weiteren 
Windows-Spieleklassikers: Solitär! 
Die CPC-Version überzeugt mit wun¬ 
derschöner Grafik und zeigt einmal 
mehr, was Amstrads “Kleine” auch 
heute noch können. Alle Freunde intel¬ 
ligenter Kombinationsspiele dürfen 
sich jetzt schon einmal die Lippen 
lecken. 

- Fraktale Grafiken haben eine 
starke Anziehungskraft. Ihre “chaoti¬ 
sche” Harmonie entspringt der 
geheimnisvollen Verbindung von rea¬ 
ler und imaginärer Zahlenwelt, 
den Windungen immer wieder in 
sich selbst zurückgeführter Funktio¬ 
nen. Sie reizen Philosophen immer 
aufs Neue dazu, über das Woher 
und Wohin nachzudenken. Wir brin¬ 
gen eine der attraktivsten Fraktal- 
gruppen auf Ihren CPC: die Baum- 
fraktale! 

- Die Rollenspiel-Serie geht ins prunk¬ 
volle Finale! Jetzt fügen sich alle vor- 
gestelllen Techniken zum spannenden 
und atmosphäregeladenen Spiel zu¬ 
sammen. Versäumen Sie nicht die Ge¬ 
burt Ihrereigenen Heldendynastie! 


- Dateien und ihr interner Aufbau 
sind für viele CPCler noch so etwas 
wie böhmische Dörfer. Dabei kann 
es speziell bei der Fehlersuche sehr 
hilfreich sein, wenn man sich mit 
Filetypen und Headern, Blöcken und 
Attributen auskennt. Unser Grundla- 
genartikel verschafft Ihnen Durch¬ 
blick. 

BERICHT 


Auf dem Software-Markt für die C'PCs 
herrschen zwar nicht mehr die Wirbel- 
stürme der Jahre 1986 bis 1988. Den¬ 
noch gibt es immer wieder mal eine fri¬ 
sche Brise. Zum Beispiel mitten im 
Ruhrpott: Da macht ein neuer Software- 
Versand mit eigener Programmentwick¬ 
lung auf, und der kümmert sich doch 
tatsächlich um CPCler! Wir haben die 
Firma Ralf Brostedt in Herne besucht 
und dabei einige Überraschungen erlebt. 

- Was schenkt man einem einge¬ 
fleischten CPC- oder PCW-Benutzer 
zu Weihnachten? Wir haben uns ein 
wenig umgesehen und sagen Ihnen, wo 
Sie nützliches Zubehör und lustige 
Gimmicks für die Computerei mit den 
kleinen Amstrads bekommen. 

CP/M 


- Public-Domain-Software ist eine ex¬ 
trem feine Sache: Man darf sie frei ko¬ 


pieren und weiterverbreiten. Zwar ist 
die Menge der PD-Programme für das 
Betriebssystem CP/M nicht mit dem 
Riesenpool für die IBM-kompatiblen 
PCs zu vergleichen. Dennoch gibt es 
bemerkenswerte Utilities, Program¬ 
miersprachen und Anwendungen in 
der Public Domain. Wir stellen Ihnen 
einige vor. 

HARDWARE 

- Was sind EPROMS eigentlich? Wie 
funktionieren sie, wie spricht man sie 
an, wofür kann man sie einsetzen? 
Wenn Sie sich für die kleinen program¬ 
mierbaren “Festgedächtnisse” interes¬ 
sieren, ist unser Know-how-Beitrag in 
der nächsten Ausgabe genau das richti¬ 
ge für Sie. 


PCW 


-Grafik vom Feinsten bietet das engli¬ 
sche Programm “Micro Design” be¬ 
reits seit der ersten Version. Daß eine 
Steigerung dennoch möglich ist, be¬ 
weist die aktuelle Version 3, die gerade 
taufrisch auf unserem Redaktionstisch 
gelandet ist. Ausgefeilte Text- und 
Kurvenfunktionen machen die Arbeit 
mit “Micro Design 3” noch angeneh¬ 
mer und lassen die Ergebnisse noch 
professioneller aussehen als bei den 
Vorgängerversionen. 
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Forever young 



100.000 stolze CPC- und PCW-Besitzer schwören drauf: Der 
CPC - nach zehn erfolgreichen Jahren noch immer UP TO 
DATE! 

Und für alle, die auf dem aktuellen Stand bleiben wollen, bietet 
sich jetzt die Gelegenheit: 

CPC-Amstrad, die ewig junge Zeitschrift für den überzeugten 
CPC-Benutzer, im ABO. 

Das Heft allein oder zusammen mit der passenden Databox- 
Diskette, ohne jedes Risiko im Rahmen unserer Aus- 
probier-Aktion. Werfen Sie einmal einen Blick auf die 
Abo-Aktions-Postkarte in der Heftmitte! Es lohnt sich. 


Jetzt gestartet: 
der Abo-Club! 

Mit Ihrer Abo-Bestätigung erhalten Sie auto¬ 
matisch die Mitgliedschaft im Abo-Club. 

Das gibt es nur für Mitglieder: 

- Geheimnummer des »roten Telefons« in der 
Redaktion: tägliche Sonder-Hotline 

- drei Gutscheine für kostenlose Klein¬ 
anzeigen in beliebigen Ausgaben der 
CPC-lnternational 

- zehn Prozent Rabatt auf alle DMV-Produkte 
für CPC und PCW 


Widerrufsrecht: 

Jeder Abonnent hat das Recht, seine Bestellung innerhalb einer Woche beim DMV- 
Verlag, Postfach 250, W-3440 Eschwege, schriftlich zu widerrufen. Die rechtzeitige 
Absendung des Widerrufschreibens genügt zur Fristwahrung. 

DMV-Verlag • Postfach 250 • W-3440 Eschwege 
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DATABOX 


Das ist die Software zur CPC INTERNATIONAL 
Jeden Monat neu 


DATABOX: 


- mehr als der übliche Software-Service 


- bringt ergänzend sämtliche Listings der jeweiligen 
Zeitschrift und alle Programmbeispiele auf Kassette 
oder auf Diskette 


und Diskette. a, s Kassette 


- Die Programme sind, soweit systembedingt möglich, 
auf allen drei CPC-Modellen lauffähig. Einzelheiten 
entnehmen Sie bitte der nebenstehenden Aufstellung. 

- Soweit die Programme nicht Bestandteil einer Serie 
sind, befinden sich alle Programme als »ready to run« 
auf der DATABOX. 

- erscheint jeden Monat und trägt das Titelbild des 
gleichzeitig erscheinenden Heftes 

- Der Datenträger zur CPC International enthält außerdem 
jedesmal ein zusätzliches Bonusprogramm, das nicht im 
Heft abgedruckt ist. 

Einzelbezugspreise für DATABOX: 

3-Zoll-Diskette 


Inland: 


Ausland: 


Einzelpreis 

24,- DM 

Einzelpreis 

24,- DM 

zzgl Versandkosten 

4,- DM 

zzgl. Versand kosten 

6,- DM 

Endpreis 

28,- DM 

Endpreis 

30,- DM 


5 1/4-Zoll-Diskette 


Inland: 


Ausland: 


Einzelpreis 

21,- DM 

Einzelpreis 

21,- DM 

zzgl. Versandkosten 

4,- DM 

zzgl. Versandkosten 

6,- DM 

Endpreis 

25,- DM 

Endpreis 

27,- DM 


Kassette 


Inland: 


Ausland: 


Einzelpreis 

14,- DM 

Einzelpreis 

14,- DM 

zzgl. Versandkosten 

4,- DM 

zzgl. Versandkosten 

6,- DM 

Endpreis 

18,- DM 

Endpreis 

20,- DM 



Nur auf der Databox 



Zahlungsweise: 

am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zu¬ 
züglich der Nachnahmegebühr. Bei Lieferungen ins Ausland ist Nachnahme 
nicht möglich. 


Bitte benutzen Sie die Bestellkarte. 


DMV-Verlag ■ Postfach 250 ■ W-3440 Eschwege 
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- Adam Riese: Professionelle Tabellen¬ 
kalkulation (Siehe Seite 47) 

- Rollenspiel-Kurs: Komplexe Land¬ 
schafts- und Spielergrafikdateien 

- Sag mir wann: Geschichtsdatei mit 
ca. 100 Ereignissen 

- CP/M vom Eprom: Infos und Program¬ 
manpassung für Sonderfälle 










































